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Documentation  and  listing  of  two  computer 
programs  Intended  to  provide  the  Air  Force 
with  means  of  exploring  the  effectiveness 
of  various  detection  devices  for  purposes 
of  Interdicting  vehicles.  The  analytical 
basis  for  the  programs  Is  given  In  R-1187, 
which  should  be  used  In  conjunction  with 
this  report.  Each  program  Is  separately 
documented,  giving  all  the  information 
needed  to  operate  It.  The  simulation 
model  simulates  detection  patterns  of 
vehicles  passing  through  fields  of  mag- 
netic, acoustic,  or  seismic  sensors,  under 
varying  vehicle  flow  and  background  (false 
alarm)  conditions.  It  also  provides  Inputs 
to  the  pattern  recognition  algorithm  allow- 
ing precise  verification  of  the  pattern 
recognizers'  detection  ability.  The  al- 
gorithm also  accepts  real  world  data,  and 
is  adaptive  In  ellmlnatlr^  from  consider- 
ation sensors  that  have  provided  Incorrect 
information  In  the  pest.  Together,  the 
programs  are  a first  step  toward  automat- 
ing the  process  of  evaluating  the  sensor 
information. 
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Th«  tvo  conputAr  pxosrmiw-  d««crlb«d  In  thl«  report— a alwulatlon 
nodal  of  vahlcla  traffic  through  flalda  of  enqplacad  aansora*  and  a pat- 
tern detection  algorlthai  of  tvo-eray  traffic  through  an  enplaced  eenadr 
field— were  developed  aa  part  of  Rand'e  Investigation  of  the  eaploynent 
of  USAF  tactical  air  forces  for  interdiction  caepalgne.  /The  study  was 
In  part  responsive  to  a request  hy  the  Cosmnder,  Eglln  Air  Force  Base, 
for  assistance  In  conducting  and  evaluating  the  Dune  Moon  sensor-systeo 
teats  Initiated  hy  former  Secretary  of  Defense  Robert  McManara. 

The  prograns  described  here  will  provide  the  Air  Force  with  a means 
for  e:>qplorlng  the  effectiveness  of  various  types  of  enplaced  sensor 
fields.  In  addition,  they  permit  a first  step  toward  creating  an  auto- 
matic capability  that  should  prove  superior  to  the  manual  methods  cur- 
rently used  to  evaluate  Information  provided  hy  fields  of  emplaced 
sensors . ^ 

Full  Information  to  operate  both  computer  programs  is  provided. 

The  report  la  Intended  to  assist  Air  Force  and  other  Department  of  De- 
fense agencies  In  exploring  the  usefulness  of  emplaced  sensor  fields. 

In  making  decisions  concerning  their  use,  and  In  designing  and  operat- 
ing appropriate  date-processing  techniques.  This  report  should  bo  used 
In  conjunction  with  Anthony  F.  Clervo,  Automatia  Traak  IdwHfioation: 

An  Adaptive  Pattern  Reoognition  Algorithm,  The  Rand  Corporation,  R-1187- 
PR,  January  1973 


SCMHm 

\. 

This  rsport  ptcovldas  th«  nsesssary  Information  for  using  tvo  sap- 
arats  coaqmtar  programs:  (1)  a simulation  modal  of  vshlcls  traffic 

through  fields  of  siqtlacod  magnetic,  acoustic,  or  seismic  sensors;  and 
(2)  a pattern  detection  algorithm  of  two-way  vehicle  traffic  through  a 
field  of  emplaced  sensors. 

The  simulation  model  supplies  the  user  with  a device  to  simulate 
detection  patterns  of  different  sensors  under  varying  vsh:lcle-flow  and 
background  (false-alarm)  conditions.  In  addition,  it  provides  Inputs 
to  the  pattern  detection  algorithm  allowing  precise  verification  of  the 
pattern  recognlser's  ability  to  detect  vehicle  flow. 

The  pattern  detection  algoritlm  is  designed  to  accept  Inputs  from 
the  simulation  model  to  allow  proper  selection  of  critical  parameters. 

It  is  also  designed  to  accept  real-world  data^ — both  actual  detections 
and  false  alarms — of  vehicle  flow  past  fields  of  sensors.  The  algorithm 
Is  adaptive  in  that  it  will  eliminate  from  consideration  sensore  that 
provide  Incorrect  information  based  on  previous  performance.  The  pat- 
tern detection  algorithm,  idien  used  with  the  simulation,  will  specify 
the  number  of  vehicle  convoys  actually  detected  and  the  number  of  vehi- 
cle convoys  Incorrectly  identified.  Actual  times  of  detection  and  di- 
rection are  produced  for  each  supposed  convoy  identified. 

This  report  should  be  used  in  conjunction  with  Rand  report  R-1187- 
PR  (see  Preface  above),  which  describes  the  analytical  basis  for  these 
ti*o  computer  programs. 
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PART  A:  THE  SIMULATION  MODEL 
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I.  INTRODUCTIOH 


The  elvulatlon  nodal  described  hare  deals  with  the  detection  of 
vehicle  flow  through  a field  of  emplaced  sensors.  The  model  permits 
the  user  to  eiqplore  the  sensitivity  of  various  sensors  to  single  or 
multiple  vehicle  traffic  in  two  directions*  simultaneously,  through  a 
string  of  sensors.  Three  levels  of  background  disturbance  (false 
alarms)  may  be  specified  by  the  user.  The  individual  sensor  detec'* 
tions-^-vehicles  and  false  alarms'— may  be  stored  on  an  external  medium 
(tape  or  disk)  for  later  use  by  the  pattern  recognition  algorithm 
(described  in  Fart  B) , thus  serving  as  a verification  and  parameter- 
selection  device  for  that  algorithm. 

+ 

The  simulation  model  was  written  In  the  SIMSCRIPT  II  language  for 
use  on  The  Rand  Corporation  IBM  360/65  computer.  It  requires  a region 
sise  of  76  k bytes  and  standard  input  and  output  devices.  Written  as 
an  experimental  model  for  that  machine,  it  may  require  some  modifica- 
tions for  other  installations. 

This  part  of  the  report  provides  a brief  description  of  the  proces- 
sing performed  by  the  simulation  model  and  controlled  by  the  user,  some 
limitations  of  the  model,  a detailed  description  of  inputting  data  to 
the  model,  a description  of  simulation  output,  and  an  interpretation  of 
error  messages  provided  by  the  simulation. 

*An  analytical  treatment  of  this  model  is  described  in  R-lir»7->PR, 
cited  in  the  Preface. 

"f*  ^ _ 

The  particular  version  was  SIMSCRIPT  II. 5 marketed  by  Consolidated 

Analysis  Canters,  Inc. 
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II » PROCBSSISG  PERPORMBD 


Single  or  nultlple  vehicle  traffic  (convoys)  traversing  a sensor 
string  In  two  directions  may  be  simulated  with  the  model.  Sensor  sen** 
altlvlty  may  be  specified  or  based  on  randomly  drawn  degradation  from 
some  nominal  sensitivity,  depending  on  the  actual  sensor  characteristics 
the  user  wishes  to  duplicate.  Each  sensor  Is  capable  of  multiple  de- 
tections as  long  as  a vehicle  Is  within  the  sensor's  sphere  of  Influence 
and  the  sensor  la  capable  of  detection.  Detection  would  not  be  possible 
If  the  sensor  wore  In  the  dead-time  period  immediately  following  a pre- 
vious detection. 

Realism  Is  Introduced  Into  the  simulation  by  permitting  sensors  to 
bo  exposed  to  several  levels  of  background  disturbances  (false  alarms) 
that  can  also  result  In  detections.  The  output  of  the  model  includes 
statistics  on  convoys,  convoy  size,  and  average  detections  for  each  sen- 
sor per  convoy,  per  unit  time,  and  per  vehicle.  Statistics  are  also 
presented  on  false  alarms.  The  model  Is  capable  of  a visual  display  of 
decectlon  patterns  and  storage  (on  tape  or  disk)  of  detections  for  use 
by  the  pattern  detection  algorithm. 

The  user  may  specify  the  following: 

1.  The  length  of  the  road  segment  along  which  a specified  number 
of  sensors  are  to  be  equldlstantly  emplaced. 

2.  The  probability  of  detection  of  a vehicle  within  a sensor's 
sphere  of  Influence.  This  Is  expressed  as  an  Isosceles  tri- 
angular distribution  (except  In  the  case  of  magnetic  sensors, 
which  can  be  specified  to  have  a single  detection  probability 
p).  The  accuracy  of  the  detection  computation  Is  controlled 
by  an  integration  step  size  specified  by  the  user;  the  smaller 
the  Integration  step  size  (l.e..  Increasing  the  number  of 
divisions  of  each  triangle),  the  more  accurate  the  determina- 
tion of  a detection  of  a vehicle  or  group  of  vehicles.  How- 
ever, too  large  a number  of  integration  Increments  severely 
slomi  simulation  execution.  We  have  experienced  good  results 
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for  1 to  9 vehicle  convoys  and  velocities  of  10  to  50  mph 
using  50  to  75  increments. 

3.  The  base  of  each  triangle,  eiilch  would  represent  the  sphere 
of  Influence  of  a perfect  sensor  emplaced  in  the  center  of 
the  road  segment. 

4'.  A normal  distribution  of  location  deviations  a sensor  would 
experience  if  emplac'^d  by  air.  The  simulation  can  thus  intro- 
duce the  realism  of  air-delivered  sensors  by  degrading  the 
sphere  of  Influence  of  each  sensor.  Further,  realism  is  in- 
troduced by  allowing  the  user  to  specify  a probability  that 
the  sensor  will  be  destroyed  on  Impact.  If  the  user  desires, 
all  triangles  representing  sensors  may  have  Identical 
characteristics . 

5.  The  time  a sensor  cannot  transmit  immediately  after  a 
detection. 

6.  The  spacing  between  vehicles  in  a convoy  as  a function  of 
convoy  velocity, 

7.  Convoy  generation  rate  as  a Poisson  process,  the  probability 
of  various  numbers  of  vehicles  in  a convoy,  and  beta  distri- 
bution of  convoy  velocities,  which  change  at  each  sensor. 

8.  Three  levels  of  background  disturbances  (false  alarms) : 
ambient,  low,  and  high.  These  would  represent  the  environ- 
ment the  user  wishes  to  simulate.  Each  false-alaim  level 
occurs  as  a Poisson  process,  with  a uniform  random  duration 
specified  for  each.  If  two  false-alarm  levels  arrive  simul- 
taneously, the  one  with  the  higher  level  is  considered  active. 
All  sensors  are  exposed  equally  to  false  alarms,  which  are 
also  a Poisson  process. 

9.  Whether  a visual-time  printout  of  actual  detections  is  de- 
sired. This  printout  shows  vehicle  detections  (differenti- 
ated by  direction),  false-alarm  detections,  and  first  and 
last  vehicle  passage  past  the  midpoint  of  each  sensor. 

10.  The  total  number  of  convoys  to  be  simulated  or  the  total  time 
to  be  slimilated. 
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III.  RESTRICTIONS  AND  LIMITATIONS 


The  following  restrictions  and  limitations  of  the  model  should  be 
observed ; 

1.  Each  sensor  is  equldlstantly  spaced  along  the  road  segment,  L, 
as  Illustrated  in  the  diagraji  below. 


z\ 

j b I-*—  b 

L 


Thus,  detections  toay  start  as  early  as  b/2  before  the  road 
segment;  likewise,  they  may  ena  as  late  as  L + (b/2). 

2.  Because  of  computational  restrictions,  sensor  midpoints  may 
not  be  closer  to  one  another  than  b/2. 

3.  Although  the  simulation  accommodates  traffic  flowing  in  two 
directions,  it  does  not  permit  vehicles  passing  one  another 
in  one  direction.  Whenever  a convoy  enters  a sensor's  sphere 
of  influence  and  there  is  already  a convoy  of  slower  velocity 
ahead  of  it,  the  velocity  of  the  convoy  will  be  set  equal  to 
that  of  the  earlier  convoy. 

4.  Computations  of  detections  of  convoys  going  in  opposite  dlrcc'- 
tlons  through  the  same  sensor  are  performed  Independently. 

5.  There  must  be  a minimum  of  three  sensors  in  a string. 


IV.  HOW  TO  USE  THE  SIMULATION  MODEL 


INPUT  DATA  FORMATS 

A datum  requiring  a decimal  point  Is  shown  by  (D) ; a datum  re- 
quiring an  Integer  value  Is  shown  by  (I) ; and  a character  datum  Is 
shown  by  (A) . Other  parenthetic  symbols  represent  the  variable  name 
Internal  to  the  program. 

Data  are  entered  In  free  format.  The  only  restrictions  ere  that 
there  must  be  at  least  one  space  between  entries,  and  a datum  of  ‘^ero 
mu3t  be  entered.  Data  may  be  continued  on  a new  card. 

New  Card — Cormente  Card 

Any  comments,  taking  up  to  eighty  columns,  the  user  desires  to 
title  the  output  listing.- 

New  Card(8) — Sensor  and  Control  Information 

a.  Print  control  (PRINT.MAP)  (I) 

If  a graph  of  detections  and  false  alarms  is 
desired  as  the  simulation  progresses,  enter  1. 

Otherwise,  enter  0. 

b.  Number  of  convoys  (MAX.NBR.C0NV5)  (I) 

The  maximum  number  of  complete  convoy  passages 
desired  before  stopping  the  sxmulatlon. 

r.  Time  control  (MAX. TIME)  (D) 

The  maximum  length  of  simulated  time  (minutes) 
allowed  fcr  the  sln.ulatlon.  Simulation  halts  ac  the 
first  completed  convoy  passage  whose  completion  time 
Is  greater  tliar.  this  value. 

d.  Road  segment  length  (ROAD.LGNTH)  (D) 

length  of  road  segment  In  meters. 

e.  Number  of  sensors  (N. SENSORS)  (I) 

Number  of  equally  spaced  sensors  along  the  road 
segment.  Must  be  greater  than  2. 


f.  Integration  Incrementa  (I) 

Enter  1*  If  magnetic  sensors  are  desired; 
otherwise,  enter  the  number  of  triangular  distri- 
bution Increments. 

g.  Maximum  permitted  triangle  base  (NOMINAL. BASE)  (D) 

b,  base  length.  In  meters,  of  a perfect  sensor 
dropped  In  the  center  of  the  road. 

h.  Destruction  probability  (PEOB.DEAD)  (D) 

The  probability  (0  < p < 1)  a sensor  will  be 
destroyed  on  Impact. 

I.  Normal  distribution  standard  deviation  (STD. DEV)  (D) 

The  standard  deviation  In  meters  of  the  spec- 
ified normally  distributed  drop  pattern  of  sensors 
about  the  road. 

J.  Sensor  dead  time  (DEAD. TIME)  (D) 

The  time.  In  minutes,  that  the  sensor  cannot 
transmit  after  a detection.  Must  be  greater  than 
zero. 

k.  Coefficient  (AREA)  (D) 

(1)  If  the  sensors  to  be  simulated  are  magnetic 
sensors,  enter  the  probability  of  the  sen- 
sors' ability  to  detect.  Must  be  less  than 
or  equal  to  1.0. 

(2)  For  runs  where  a constant  base  is  desired 
for  all  sensors,  entbr  the  height  of  the 
sensor  triangle.  Each  base  will  be  the  value 
entered  for  maximum  base  In  Item  g above. 

(3)  For  simulation  of  sensors  distributed  about 

* 

the  road,  enter  the  coefficient  c^. 

l.  Coefficient  two  (C.2)  (0) 

For  simulation  of  sensors  distributed  about  the 

* ^ 

road,  enter  the  coefficient  Otherwise,  enter  0.0. 

*$ee  R-1187-PR  for  a discussion  of  how  these  constants  should  be 
computed. 
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B.  RjtndoB  MBd  (SKID.V(8))  (I) 

Knt«r  any  of  tho  ton  rondoB  soods  ohown  In 
Appondlx  A*  Tho  ooquoiico  of  rondoB  nui^ort  thus 
otortod  oolocto  tho  diatributlon  of  sonoorc  about 
the  road.  On  aubooquoat  ruQS«  ontorlng  tho  soao 
nuaibor  will  yield  the  ease  randoB  nuBd>er  atraoB* 
or  entering  a new  nuaher  will  yield  a different 
strean. 

n.  Base  control  flag  (BAM.NBK)  (D) 

If  all  sensor  triangles  are  to  have  the  saote 
base,  enter  1.0.  The  base  will  be  that  In  item  g 
above.  Than  enter  the  height  of  the  triangles  In 
ItoB  k (2)  above.  Othexwisa,  enter  0.0. 

o.  Truck  spacing  (SPACE. FACTOR)  (D) 

Enter  the  spacing,  in  asters,  desired  between 
trucks  for  each  klloBOtar  par  hour  of  convoy  velocity. 

p.  Constant  convoy  generation  flag  (CONSTANT. CON)  (I) 

Entering  1 will  cause  all  convoys  to  be  gener- 
ated with  a constant  interarrival  time  at  the  spec- 
ified aaan  rate.  Otherwise,  enter  0.0. 

New  Card(e)—TruokB  in  Convoy  Diotributian 

Pairs  of  Values 

1st  CuBulatiye  prob,  p^  (D)  of  nusber  of  trucks,  T^^  (I) 

2d  Cuaulatlve  prob,  P2  (0)  of  nuBber  of  trucks,  T2  (I) 

s s as 

as  « * 

e e • s 

nth  Cuaulatlve  prob,  p^  (D)  of  nu8d>er  of  trucks,  T^  (I) 

Enter  an  asterisk  (*)  after  T.. 

a 

New  CaBPd(9)~-‘V0atbamd  Convoy  Infofmation 

a.  Convoy  rate  (RATE. CNF)  (D) 

Mean  of  a Poisson  distribution.  The  average 
ttUBber  of  convoys  genersted  per  Binuta. 
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b.  Mean  convoy  velocity  (MEM.VEL)  (D) 

Mean  of  a beta  diatrlbution.  The  average 
velocity  of  the  convoye  in  kllometere  par  hour. 

c.  Modal  convoy  velocity  (M(H>E.VEL)  (D) 

Mode  of  a beta  diatrlbution.  Tlie  modal 
velocity  of  the  convoye  In  klionetera  per  hotnr. 

d.  Upper  bound  on  velocity  (UPPER. BMD)  (D) 

The  highest  poealble  velocity  of  a convoy 
In  kilometers  per  hour. 

e.  Lower  bound  on  velocity  (LOWER. END)  (D) 

The  lowest  possible  velocity  of  a convoy  In 
kilometers  per  hour.  Must  be  greater  than  zero. 

f.  Direction  name  (DIR.  SYMBOL)  (A) 

The  convoy  direction  nay  be  designated  by 
using  any  four  letters.  For  convenience,  WEST 
is  suggested.  Such  a convoy  will  always  start  at 
sensor  1. 

Nsh)  Card(8)~-Eaetbound  Convoy  Information 

Enter  Items  a through  e as  for  the  westbound  convoy.  The  values 
nay  be  different.  The  entry  for  f can  be  EAST  or  any  other  four-letter 
aynbol.  Convoys  for  this  direction  always  start  at  the  nth  sensor. 

Em  Card(8)—-Falee-Alarm  Information 

a.  Ambient  arrival  rate  (LAM)  (D) 

This  is  the  arrival  rate  of  false  alarms  of  the 
lowest  density  (level  1) . It  is  the  mean  of  a 
Poisson  process.  It  Is  entered  as  number  per  minute 
for  a single  sensor. 

b.  Medium  arrival  rate  (LAM)  (D) 

Arrival  rate  of  false  alarms  of  the  medium 
density  (level  2);  false  alarms  in  nuaiber  per  min- 
ute for  a single  sensor. 
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e.  MaxlHMft-l«v«lt  2-burst  Isagth  (UB)  (D) 

l^psr  bound  of  s uniform  distribution  dstsmdn- 
Ing  burst  Isngth  of  s lsvsl-2  fslss  slam  in  mlnutss. 

d.  Miniona-lavsl,  2-burst  Isngth  (LB)  (D) 

Lowsr  bound  of  tbs  unlfom  distribution  that 
dstamlnss  burst  Isngth  of  a lsvsl-2  falsa  alarm  in 
■inutss. 

s.  Arrival  rats  of  lsvsl-2  bursts  (GAM)  (D) 

Ths  rats  at  which  bursts  of  Isvsl  2 arrivs.  Ths 
assn  of  a Poisson  procsss  in  nuri>sr  par  minuts. 

f.  High  arrival  rats  (LAM)  (D) 

Arrival  rata  of  falsa  alarms  of  ths  hlghsat 
dsnslty  (Isvsl  3);  falsa  alarms  In  numbsr  per  minute 
for  a single  sensor. 

g.  Maximum-lovsl,  3-burat  Isngth  (UB)  (D) 

Upper  boimd  of  a uniform  distribution  that  ds- 
tsmlnss  burst  Isngth  of  a level-3  false  alarm  in 
minutes . 

h.  Mlnlmna-levsl , 3-burst  length  (LB)  (D) 

Lowsr  bound  of  ths  unlfora  distribution  that 
determines  burst  Isngth  of  a levsl-3  falsa  alarm  in 
minutes. 

1.  Arrival  rate  of  level-3  bursts  (GAM)  (D) 

The  rate  at  which  bursts  of  level  3 ar?  ..ve.  The 
awan  of  a Poisson  process  in  nuhber  per  minute. 


A SAMPLE  DATA  DECK 

Tbs  following  figure  (from  Appendix  B)  shows  a sawpls  data  deck 
punched  from  the  above  input  data  formats: 


T'MS  IS  ti!  -IP  T-P  SImii.atI'I''  ?-nnr(.  ? MFC  1*17^ 


1 ?o  i''On,o  lono.n  5 

'»,f»  l.O  0 

■50 

250,0  0,?  20.0 

0,15 

40a(» 

f'.l  1 0.3  ? 0,4 

0.1  ?4,n  20,0 

o.cks  ?4,0  ?o.o 
O.s  l.s  4.0  O.S  0,? 

3 

I'j.O 

35.0 

3,0 

0,4  4 0.9  5 

15.0  i^PST 
15.5  FAST 
0.5  0,01  0,05 

l.O 

1000,0  filOHSOv 
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A 1000*wit*T  r04id  s^gMnac  Ium  bMs  ••l^ctcd  on  which  five  ••noors  hovw 
hnim  oqtiidiotntttly  wpaeod  tad  dro^od  rnndoady*  V^lelwt  trnvorto  tho 
road  aataant  In  two  dlroetlons. 

IMfIgimilS  TSg  SDCLAnOM  OOTWT 

Figure  1 ahows  a aan^lo  of  tha  doacriptlcm  of  eho  Input  data  dock 
and  aoaa  of  Its  ramifications.  This  dsaerlptlon  Is  produesd  hy  each 
simulation  run.  Ihs  first  11ns  after  the  heading  Is  a repeat  of  the 
comment  card  In  the  data  deck.  The  second  line  gives  the  data  control- 
ling the  length  of  the  simulation  in  convoys  ganerated  and/or  total  tine. 


(IWM.ATION  or  TKJCR  CONV««l  NOVIMO  IN  TMO  DHUCTIOMI  TMIU  « MWOK  rilLO  ***** 

fHIS  II  IN  (MIWU  OF  TMI  IIMItATION  NSOtt.  t OK  ItTI 
SIHUUriO|l  HALTS  IF  TIM  iNCIIM  1000.000  HIM.  OA  CONVOVt  OtWAATtO  IXCIIOS  10 

**»  tIHtOA  FAAAMTIAt  *** 

AOUTt  IIOMINT  IS  1000.00  N.  MITH  S lOUALir  SFACSO  SAHSOAS. 

SACK  HITH  HDHINAL  SAM  OF  tM.OO  N. 

TM  COIFF.  FOA  CONFVTIMO  MIONT  AAS  ICtI  40.00  ICtl  1000.00 

SMAV  SSMSOA  TAIAMLt  HAS  10  IHCAiNSlTS.  

THt  FAOO.  THI  SINSOA  IS  OOAO  OH  lAFACT  IS  .100.  STANOAAO  OtVJATlOH 
FAOH  TNf  AOAO  IS  10.0.  THt  OSAO  TINS  OF  A SSHSOA  AFTtA  ACTIVATION 
IS  .ISO  NIN.  TM  AANOOH  SMO  FOS  SSLKTIHB  TAIANOLIS  IS  SIOOSOO.O 


SSHSOA 


SSHSOA  ATTAIOUTIS 

.«« 

OUSIN.I 

1 SLOFI  A OUTAS 

OSLTASIN.i 

AABA 

OSAOI*II 

ISO.OO 

.00140 

0.000 

0.00 

0 

14T.TS 

.00110 

4.000 

S.OT 

0 

140.00 

.00110 

4.041 

S.OO 

0 

0. 

0. 

0. 

0.00 

1 

140.00 

.00144 

4.001 

4.4T 

0 

***  CONVOV  INFOANATION 


OISTANCS  MTHSSN  TAUCAS  IN  A CONVOV  IS  1.0000  N.  FOA  SACK  AN/HA. 
OISTAiSUTION  OF  TAUCAS  IN  A CONVOV 
TAUCAS  euWLAT  IVf  FAOO 
I .100 

I .soo 

S .400 

4 .400 

5 .000 

4 1.000 


THI  MST  eiASCTION  NAS  A CONVOV  ACTS  OF  .100  FSA  NIN.  NNICN  IS  OM 
CONVOV  SVtAV  10.000  NIN.  TM  A»0  VSLOCITV  IS  14.0  ANFHA. 

TM  NOOS  VSUKITV  IS  M.OO  AN/HA.  TM  SLOMST  IS  10.00  IWNA. 

AHO  TM  FASrSIV  IS  M.OO  AH/M..  A|  IS  1.110  AHO  II  IS  l.STO 


TM  fAST  OIASCTIIIN  HAS  A CONVOV  AATS  OF  .040  FSA  NIN.  ANICH  IS  OM 
CONVOV  SVSAV  I4.44T  NIN.  TM  AVO  VSLOCITV  IS  14.0  ANFHA. 

TM  NOM  VSLOCITV  IS  M.OO  AN/NA.  TM  SLMSST  IS  lO.SO  AlWNA. 
ANO  TM  FASTSST  IS  M.OO  AN.'HA..  At  IS  1.144  ANO  At  IS  1.401 


AtAAN  LSVSL 
I 
1 
S 


•••  FALSI  ALAAN  INFOAMTION  *«• 

ALAANS/NIN  NIN  OUAST  ININI  NAI  OUAST  ININI  AAAFNIN 

1.000 


IS.000  .010  .100  .000 


Fl0.1  — Dsfcrlptlon  «f  Input  data  deck 
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Undsr  SBHSOK  PiURiMlTBRS  «r«  tha  langth  of  tho  road  aagmant  In 
Mtara  and  tha  ntinbar  of  aanaora.  Tha  aaeond  llna  ahowa  tha  baaa  alsa 
of  a parfact  aanaor  aaplacad  on  tha  road  aagnant*  followad  by  tha  two 
coaffleianta  uaad  to  datarnina  tlia  halght  of  tha  triangular  dlatrl- 
butlon  of  tha  rapraaantad  aanaor*  Tha  naxt  llna  Indleataa  tha  nuid>ar 
of  Inerasanta  aaeh  trlangla  will  hava  for  eoaputlng  tha  probability  of 
detaetlona.  Tho  naxt  throa  llnaa  contain  aavaral  Itaaw:  tha  uaar- 

li^uttad  probability  that  a aanaor  will  ba  doatroyad  on  lapact,  tha 
atandard  deviation  (aotara)  of  tha  noraal  diatrlbutlon  that  la  uaad 
for  randowly  aalactlng  tha  dlatanea  froai  tha  road  that  a aanaor  la  ow- 
placad  after  being  dropped,  tha  dead  tiwa  of  tha  aanaor,  and  tha  randow 
aaod.  Tha  randow  aaada  datarwlne  the  atarting  point  of  random  drava 
from  tha  norwal  diatrlbutlon. 

SENSOR  ATTRIBUTES  are  tho  raaultlng  charaetarlatlca  of  each  aanaor 
after  Ita  dlatanea  fron  tha  canter  of  tha  road  la  randomly  aeloctad 
from  tha  normal  diatrlbutlon.  Tha  affective  baaa  la  ahown  for  each 
aanaor.  A aero  Indleataa  tha  aanaor  waa  doatroyad  on  impact  or  landed 
too  far  from  tha  road  to  ba  affective.  If  It  waa  doatroyad  on  Impact 
(ahown  by  a 1 in  tha  column  labeled  DEAD),  It  will  never  tranamlt  falaa 
alama.  Tha  column  labeled  SLOPE  X DELTAS  glvaa  tha  factor  that,  whan 
multiplied  by  tha  poaltlun  of  a vehicle  In  tha  aanaor  field  of  Influ- 
ence, will  yield  the  probability  of  detection  at  that  point.  Tha  column 
labeled  DELTAS <M.)  glvaa  tho  width  of  each  Ineramant  of  tha  triangular 
diatrlbutlon.  During  tha  almulatlon,  a vehicle  movea  thla  IncreaMnt 
before  a calculation  of  tha  probability  of  detection  la  made.  The  column 
labeled  AREA  la  tha  area  of  each  aanaor* a triangular  diatrlbutlon  and 
rapraaanta  tha  acnaltlvlty  of  tho  aanaor  for  detecting  vahlclaa  of  a 
given  velocity. 

Under  OCHIPOT  INP(HMAT1(N(  tha  dlatanea  between  trucka.  In  a convoy 
cornea  directly  fron  tha  Input  data,  aa  doaa  the  alia  of  convoy  dlatri- 
btttlon.  Each  time  a convoy  la  generated,  a uniform  random  variate  la 
drawn  to  datamlna  tha  number  of  trucka  In  the  convoy.  For  axMpla,  if 
a nuihbar  between  0.6  and  0.9  la  drawn,  tha  convoy  will  have  five  trucka, 
or  If  a mmriMr  between  0.0  and  0.1  la  drawn.  It  will  have  one  truck. 
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Th«  next  Cifo  paragzaphii  In  Fig.  2 raflcet  the  infornetlon  on  con- 
voys traveling  in  the  west  end  east  directions  and  start  with  the  nean 
rate  (Polaeon  process)  at  idilch  convoys  will  be  generated,  followed  by 
the  beta  distribution  Infonuitlon  on  convoy  velocity.  K1  and  K2  are 
the  paraneteri  of  the  dlatributlon  conputed  fron  this  Infonuition.  Each 
tine  a convoy  starts  through  a sensor,  its  velocity  la  conputed  by  ran- 
don  aanpllng  fron  this  distribution. 

Under  PALSB-ALABM  INF08MATZGM,  the  three  alarm  levels  are  shown 
(1  ■ aiAlent,  2 • low  or  medium,  3 <•  high).  They  muet  have  increasing 
which  la  the  mean  of  the  Poisson  process  that  generates 
false  alarms  to  sensors  when  a particular  level  Is  on.  The  ABR/MIN 
column  gives  the  ssMin  arrival  rate  (Poisson  process)  of  each  level  of 
false  alarms.  Of  course.  If  neither  alarm-level  2 nor  3 is  on,  level  1 
(neblent)  will  be.  HIM  BURST  (MIN)  and  MAX  BURST  (MIN)  are  the  Inputted 
minimum  and  maximum  times  (minutes)  of  the  uniform  distribution  of  the 
duration  of  lcvel-2  and  level-3  false  alarms.  * 

Figure  2 shows  an  example  of  the  printed  output  the  uaer  can  obtain 
by  exercising  the  print-control  option  (field  "a"  of  the  sensor-  and 
control-input  data).  The  simulated  time  in  minutes  is  shown  down  the 
left  side.  The  increment  of  time  is  the  sensor  dead  time.  In  the  column 
for  each  sensor,  E or  W repressnts  a vehicle  detection  for  a convoy 
traveling  from  the  east  or  west.  The  -f  or  - represents  the  passage  of 
the  first  and  last  trucks  of  the  convoy  past  the  midpoint  of  a aensor 
(■f  Is  for  convoys  from  the  east,  and  - for  convoys  from  the  west). 

Usually  these  signs  are  paired,  but  occasionally  only  one  is  shown.  A 
single  occurrence  is  the  result  of  (1)  the  passage  of  only  a single 
vehicle  or  (2)  a convoy  speed  that  Is  too  fast  relative  to  the  time 
Increments  printed.  The  symbols  1,  2,  * represent  false  alarms  of  level 
1,  2,  and  3,  respectively. 

An  example  of  summary  statistics  relating  to  falsa  alarms  Is  given 
in  Fig.  3.  STSTBI  FALSE  ALARMS  are  the  number  of  times  each  alarm  level 
was  on  during  the  simulation.  This  Item  Is  shown  under  NO.  OF  BURSTS. 

The  average  length  of  time  each  was  on  Is  shown  under  AVG.  NJRST  LENGTH 
QfIN).  The  vaabmr  of  times  each  level  was  on  divided  by  total  simulated 
time  Is  shown  under  AVG  BURST  AIR/MIH.  For  each  sensor  the  average 


TIWIW« 


Fig. 2 — Printod  output  option 
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****  tVtfIN  mtt  ALAMt  **** 

AtMM  tCVCl  NO.  or  MMttS  *««.  MMSI  LINOTMHI^i  ««S  MMST  MAMIN 
1 M A*»SM  .11*1 

I It  ».«m  ,U«T 

) S *<TOt  .Mil 


****  tUaOA  IM.U  M.AKNI  **** 
UNMW  MJkMS/NIM  < LtVH  1 LtVtL  I LIVtL  I 
I .Ml  .«M  .AM 

X .lU  .«tr  .OM 

I .<41  .411  .M« 

4 0*  0.  0. 

I .m  .410  .M4 


*u  urns 
.m 

.440 

.701 

0. 

.747 


Fig. 3 — FalM~olann  summary  statisHcs 

nuabar  of  falsa  alaras  par  alnuta  activating  the  sensor  Is  shown  for 
each  slam  level  and  the  sun  of  all  alam  levels.  Notice  the  sensor 
that  was  destroyed  on  lapse t does  not  receive  any  activations. 

Figure  4 la  an  exaapla  of  sunaary  statistics  relating  to  the  nua~ 
bar  and  type  of  convoys  generated  during  the  slaulatlon.  The  suanary 
Inforaatlon  Is  presented  for  each  direction  and  contains  the  frequency 
of  each  convoy  else  generated  and  the  total  nuadter  of  trucks  generated 
froa  that  convoy  slse.  Relevant  totals  are  also  shown. 


CONVOY 


TOTALS I 


*«*•  NUNttA  or  CONVOYS  MNfAATfO  **** 
9IMCTI0N  I MCST 


Ui 


FAigumcv 
2 
S 
< 

I 
I 
I 

10 


TOTAL 


TAUCAS  CIHfAATSD 
t 

4 
4 
4 
I 
4 
<Y 


OiaCCTION  • f4ST 

COWrOY  SIM  FKCOUeiCY  TOTAL  TAUCAS  OfNfAATCD 


10  0 

IS  4 

SO  0 

4 1 4 

• 4 (0 

4 1 U 

T0T4LSI  10  4« 


0A4N0  TOTALSI  M 


Tl 


Fig  .4  — Convoy  wmmory  itaHstlo 

Figure  5 shows  suaaary  statistics  on  sensor  actlvstlons  resulting 
froa  vdbtlclea.  For  each  sensor,  the  average  nuaber  of  detections  over 
the  slaulatlon  is  shown  ur  t nETECTIoas/MIMUTI ; the  average  nuaber  of 
detections  per  generated  convoy  is  shown  under  DinCTXOKS/OCNIVOT ; md 
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th«  average  nueber  of  deteetlona  over  all  generated  trucks  la  shown 
under  OBTBCTIGMS/UDGK. 


AVaiMI  CONVOV  MTKTItMS  AT  UHMm  **** 

MMOR  MTKfiOM/Nimnri  OfTWriaU/CONVOV  OfVKTiailt/T*UCK 
I .Mf4  9.4M0  .«Vta 

a .4M>  a.«M«  .aaio 

1 «4tM  a.  1900  .MTS 

4 0.  0.  0. 

9 .ta«4  S.SMO  .«4ST 


Ftg.5  — Summary  of  senior  octivaHons 
caused  by  vehicles 

IMIERPKBTING  EHBOR  MBSSASBS 

The  simulation  makes  basic  checks  on  the  Input  data  for  compati- 
bility. If  some  of  the  Input  rules  hove  been  violated,  error  messages 
of  the  following  type  appear  after  the  erroneous  data  Is  read: 

???  ERROR  IN  ABOVE  LIME. 

The  processing  then  halts.  The  user  thus  has  the  Incorrect  value  and 
an  Indication  that  It  Is  Incorrect.  He  should  examine  the  data  Input 
to  see  which  rule  was  violated.  Examples  of  violations  are  negative 
road  length,  a lower  alarm  rate  for  level  3 then  level  2,  and  the 
probability  of  destroying  a sensor  on  Impact  greater  than  1.0. 

THE  OUTPUT  FILE 

An  output  file.  In  the  proper  fonut  for  use  by  the  detection 
algorithm,  la  produced  as  normal  output  of  the  slanilatlon.  It  contains 
all  actual  detections  (as  well  as  those  caused  by  false  alarms),  convoy 
else,  and  entry/exit  times  of  convoys  Into/out  of  the  sensor  string. 

See  Appendix  D2  for  the  format  of  the  output  file. 

APDlTIOilAL  IWOEMATIOM 

Appwadlx  B contains  an  example  of  a fully  setup  data  deck  for 
Mscutlon  of  a simulation  on  the  land  IM  360/65  computer  Installatlcm. 
Appendix  C la  a full  source  listing  of  the  entire  program. 
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1.  INTRODUCTION 

A 

Th«  pattern  dstectlon  algorithm  presantad  here  will  identify 
vehicle  tracks  in  two  directions  through  a field  of  emplaced  sensors. 
The  algorithm  Is  an  adaptive  detection  mechanism — It  continually  mea- 
sures the  performance  of  each  sensor  in  the  strings  giving  more  weight 
to  Information  from  reliable  sensors  and  less  to  unreliable  sensors. 
When  a sensor  Is  deemed  very  unreliable  by  a user-inputted  criterion, 
it  Is  dropped  from  consideration  entirely. 

The  algorithm  Is  designed  to  operate  from  data  provided  by  the 
simulation  model  described  in  Part  A or  from  real-world  data.  The 
algorithm  is  programswd  in  FORTRAN  IV  for  the  Rand  IBM  360/65  Instal- 

■j* 

latlon  and  requires  178  k bytes  of  core. 

Part  B of  this  report  provides  a brief  description  of  the  pro- 
cessing performed  by  the  algorithm,  some  limitations  of  the  algorithm, 
a detailed  description  of  how  to  Input  data  to  the  model,  a descrip- 
tion of  typical  algorithm  output,  an  interpretation  of  error  messages 
provided  by  the  program,  and  the  format  required  for  inputting  actual 
sensor  detection  data. 

^Detailed  analytical  description  of  the  algorithm  Is  provided 
In  R-1187-PR. 

^Use  of  this  program  at  other  Installations  that  do  not  have 
graphic  capability  would  require  removal  of  the  graphic  routines  and 
other  minor  modifications. 
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II.  PROCESSING  PERFORMESJ 


Th«  algorithm  begins  by  examining  clusters  of  activations  on  a 
sensor.  If  there  are  at  least  u)  activations  no  more  than  8 minutes 
apart,  the  cluster  is  defined  as  a x>dLid  etrip  and  a window  is  opened  on 
the  adjacent  sensors  (see  Fig.  6,  p.  25).  The  window  length  is  primarily 
a function  of  anticipated  vehicle  velocity.  Thus  a conjectured  vehicle 
track  (trajectory)  la  Initiated.  A valid  strip  intersecting  a window 
Is  defined  as  an  cuAtdegible  airip.  If  a conjectured  vehicle  track  con- 
tains at  least  M admissible  strips,  the  trajectory  is  confirmed  as  a 
vehicle  track.  Each  admlsnlble  strip  in  a confirmed  vehicle  track  is 
called  an  ASTI  (admissible  strip  contributing  to  a track  Identifica- 
tion). The  adaptive  logic  of  the  algorithm  uses  the  Information  on 
valid  strips,  admissible  strips,  and  ASTIs  for  each  sensor  over  time 
periods  of  length  B to  determine  the  sensor's  reliability.  Hlgh- 
rellablllty  sensors  are  given  more  weight  and  low-reliability  sensors 
less  weight  in  confirming  vehicle  tracks.  A sensor  that  continues  to 
have  low  reliability  is  eventually  eliminated  from  the  string.  Thus, 
on  the  basis  of  prior  Information,  the  algorithm  is  capable  of  adapt- 
ing its  detection  ability. 

When  used  in  conjunction  with  the  simulation  model  output,  the 
algorithm  will  provide  statistics  on  the  actual  number  of  convoys  de- 
tected and  missed.  The  size  of  convoy,  the  weights  of  each  sensor  for 
each  update,  and  the  number  of  vehicle  tracks  identified  that  were  not 
caused  by  vehicles  will  be  determined.  Graphic  output  also  allows  the 
user  to  observe  the  step-by-step  process  of  identification  and  the 
actual  time  a particular  track  is  confirmed. 

A 

The  user  may  specify  the  following: 

1.  The  anticipated  average,  minimum,  and  nuuclmum  velocities  of 
convoys  traversing  the  sensor  string  in  either  direction. 

2.  B,  the  maximum  Interval  between  activations  in  a valid  strip. 

*See  R-1187-PR  for  precise  definition  of  terms  and  analytical 
treatsMot  of  the  algorithm. 
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3.  Oi,  the  minimum  number  of  activations  In  a valid  strip. 

4.  M,  the  number  of  admissible  strips  required  for  a trajectory 
confirmation. 

5.  Ine  length  of  the  road  segment. 

6.  The  number  of  sensors  in  the  string  and  their  position  along 
the  string. 

7.  B,  the  number  of  trajectories  (track  identifications)  to  be 
confirmed  before  updating  sensor  performance  information 
(weights) . 

8.  p,  the  back  weight  for  the  smoothing  function. 

9.  C,  weight  below  which  an  Inferior  sensor  is  removed  from  the 
string  after  D consecutive  weight  updates. 

10.  W,  a lower  bound  on  sensor  weights  for  conflrmlnf,  vehicle 
tracks.  The  sum  of  the  sensor  weights  for  those  sensors  con- 
tributing admissible  strips  must  be  greater  than  W to  confirm 
a trajectory. 

11.  A control  parameter  allowing  visual  graphs  of  sensor  activity, 
window  activity,  track-identification  Limes,  false  alarms,  and 
vehicle  activations. 


I 


-24- 


III.  RESTRICTIOKS  AH.’)  LIMITATIONS 

As  currently  coued,  the  following  maxlr'uais  must  be  adhered  to: 

1.  B,  the  number  of  vehicle  tracks  to  be  confirmed  (maximum  of 
50)  before  updating  sensor  performance  information  (weights). 

2.  Maximum  of  15  sensors.  (Can  be  Increased  to  50  by  redlmen- 
slonlng  all  common  arrays  in  the  program.  Sufficient  infor- 
mation is  provldad  in  the  MAIN  routine  for  a programsker  to 
make  the  change.) 

3.  Maximum  of  20  trucks  per  convoy. 

As  might  be  expected,  a large  number  of  patterns  are  possible  from 
various  combinations  of  valid  and  admissible  strips.  Every  attempt 
has  been  made  to  anticipate  anomalous  behavior  of  various  trajectory 
paths . 

Figure  6a  shows  what  might  be  regarded  as  the  most  typical  be- 
havior and  is  to  be  expected  in  the  majority  of  vehicle  tracks.  A 
valid  strip  on  the  first  (or  a subsequent)  sensor  opens  a window  on 
the  second  sensor  in  which  a valid  strip  falls,  thus  opening  a window 
on  the  third  sensor,  and  so  on.  Finally,  the  vehicle  track  is 
confirmed. 

Figure  6b  presents  a case  In  which  a valid  strip  fails  to  fall 
in  a window.  The  window  is  Just  extended  to  the  average  convoy  veloc- 
ity defined  by  the  user.  (This  illustration  requires  three  admissible 
strips  to  confirm  a vehicle  track.) 

Figure  6c  shows  that  a vehicle  track  once  begun  will  be  continued 
until  the  end  of  the  string.  Although  this  may  seem  unnecessary,  since 
a vehicle  track  with  only  one  admissible  strip  can  never  be  confirmed, 
it  results  in  fab.’.ir  computation  time  and  causes  no  problems. 

Figure  6d  illustrates  a condition  that  occurs  occasionally.  At 
the  second  sensor  two  valid  strips  fall  in  the  same  window,  and  their 
windows  on  the  subsequent  sensor  overlap.  In  this  case  the  program 
considers  the  extremes  as  one  large  window. 
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Fl^r«  6e  abowa  a alallar  coodltioint  but  tha  wiudova  on  the  aub- 
8a<|uaiit  aanaor  do  not  overlap*  lha  axtraBaa  are  atlll  treated  aa  one 
large  window— assoapt  If  the  lower  window  waa  cloaed  before  the  upper 
window  waa  opened.  (Wlndowa  are  acanned  for  poaelblllty  of  cloaure 
by  any  aenaor  activation  and  are  cloaad  providing  the  activation  la  at 
a later  tine  than  the  tine  of  tha  upper  portion  of  the  window.)  In 
thla  altuatlon  two  aeparate  vehicle  tracka  are  continued  along. 

Figure  6f  llluatratea  a rare  occurrence.  Two  aeparate  trajec- 
torlea  are  ao  cloae  that  valid  atrlpa  in  later  wlndowa  create  over- 
lapping wlndowa  on  a aubaequant  aenaor.  When  thla  occurs,  one  large 
window  la  created  and  given  the  identification  of  the  lower  vehicle 
track.  Any  previous  adodsalble  strips  of  the  upper  vehicle  track  are 
transferred  to  the  lower  vehicle  track. 
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IV.  HOW  TO  USE  THE  PATTO<W  DBMCTION  AljGORITHM 
SPBCmiWG  THE  IMPOT  DATA 

A tlAtuA  raquirlng  a dactaal  point  Is  shown  by  (D) ; a datun  re- 
quiring an  Integer  value  la  shown  by  (I).  All  data  entries  nust  fall 
within  the  eoluam  llaitatlons  specified.  All  Integers  anist  be  right 
Justified.  Parenthetic  sy^ols  are  the  Internal  syndtole  In  the  prograa. 

Card  l^-Conmante 

Any  cooeienta  the  user  desires  to  ouike  to  Identify  the  run. 


Card  2-~Input  Parmetera 
Cols. 

I- 2  Integer  1 for  identification.  (I) 

3-10  Westbound  averas<s  convoy  velocity  In  klloieeters  per  (D) 

hour  (AVGm(D). 

II- 20  Westbound  ■axinum  convoy  velocity  in  kilometers  per  (D) 

hour  (BBWND(D). 

21-30  Westbound  mlninua  convoy  velocity  la  kilometers  per  (D) 

hour  (UPWND(D). 

31-40  l4Mtbound  average  convoy  velocity  In  kilometers  per  (D) 

hour  (AV6VfL(2)). 

41-50  Eastbound  maximuai  convoy  velocity  In  kilometers  per  (D) 

hour  (BPWND(2)). 

51-60  Eastbound  minimum  convoy  velocity  In  kilometers  per  (D) 

hour  (UPUND(2)). 

61-VO  Bt  mexlausi  time  in  minutes  penal ttsd  between  (D) 

detections  In  a valid  strip  (BETA). 

71-30  C,  weight  below  which  a sensor  Is  considered  for  (D) 

elimination  from  the  string  (CSENS). 
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Oeaed  S—^nput  Paopmatwa  (oontimad) 

Coli. 

I- 3.0  W,  a lotiar  lioutidi  on  sanaor  walghta.  Tha  aim  of 

the  seneor  eelghta  for  thoaa  aenaora  contributing 
adaiaalble  atrlpa  auust  be  greater  than  W to  con- 
fine a trajectory  (WCAP) . 

II- 20  Road  aegaent  length  in  OMtera  (SEGLNT). 

21-30  M«  tha  percent  of  live  aenaora  required  to  contrib- 
ute adad.aalbla  atrlpa  for  trajectory  conflraiatlon 
(PCTSEN) . 

31-40  B,  the  nuaftier  of  trajectorlea  to  be  conflrtted 
(■axlanna  of  50)  before  updating  veighta  (MB) . 

41-50  D,  nuaber  of  conaecutlve  tlaw  per lode  chat  a aenaor 
weight  la  below  G before  It  la  allainated  fron  the 
a ''ling  (MD). 

51-60  0),  the  alnlaua  number  of  detectlona,  no  more  chan 

6 alnutea  apart,  required  to  define  a valid  atrip 
(IWCMT). 

61-70  The  nuaber  of  aenaora  (maxlimm  of  15)  In  the  atrlng 
(NSENSR) . 

71-78  When  requeatlng  SC-4060  grapha,  apeclfy  the  nuid>er 
of  alaulatlon  alnutea  (oultlplea  of  ten  alnutea 
only)  to  be  portrayed  on  each  graph  (GRAPH) . 

79-80  If  grapha  are  dealred,  enter  1;  otheiwlBe,  0 
(KAGRAF). 

Card  4 — Input  Parcrnetera  (continued) 

Cola. 

1-2  If  graphs  are  dealred  and  you  wlah  to  see  truck 

detectlona,  falae  alaraa,  and  windows  aeparatcly 
Identified,  enter  1.  If  the  graph  la  to  show  only 
all  Impulaea  with  no  wlndowa,  enter  0 (MOmMD). 

3-8  p,  the  back  freight  for  the  aaoothlng  function  (RUO) . 


Card  S— Distance  betuam  Smaort 


Cols. 

1-2 

Tha  Integer  2 to  identify  tha  card. 

(I) 

3-10 

Dlstanea  batwaan  tha  1st  sensor  and  tha  2d  In  natars. 

(D) 

l'-20 

Batwsen  2d  and  3d. 

(D) 

21-30 

Batwaan  3d  and  4th. 

(D) 

31-40 

Batwaan  4th  and  5th. 

(D) 

41-30 

Batwaan  5th  and  6th. 

(D) 

51-60 

Batwaan  6th  and  7th. 

(D) 

61-70 

Batwaan  7th  and  8th. 

(D) 

71-80 

Batwaan  8th  and  9th. 

(D) 

If  th«r«  arc  aora  than  9»  start  over  on  n new  card  (Cola«  1~10, 
U*>20  , 21-30,  atc.)«  Caution:  Tha  aua  of  tha  dlstancaa  mat  aqual 
praclaaly  tha  langth  of  tha  road  aagaant. 


A SittgLE  IKPUT  PECK 

The  input  dack  (ahovn  in  Appandlx  E)  la  apaclflad  In  such  a vay 
that  tha  datactlon  algorithm  trill  uaa  tha  output  Inforaatlon  of  the 
almlatlon  that  traa  atorad  on  tapa  fron  tha  azaapla  ahotm  In  Appendix  B. 
Tha  following  figura  la  an  axcarpt  froa  tha  dack  in  Appandlx  E: 
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THIS  IS  4M  FXAMPLt  IIP  THP  OATTEflN 
1 ?A.n  35.(1  15.0  24.0 

n.5  1000. 0 .67 

0 l.n 

7 ?SO.O  250.0  750.0 


OFTFCT.  algor. 
35.0 

5 ^ 


250.0 


Col. 

1 

0SIA<G  SiH'iiLATtn  DATA  Zn?./U 
15.0  0.40  0.05 

3 5 60.0  I 


If  tha  pattern  datactlon  is  to  be  rim  with  data  other  than  pro- 
yldad  hy  tha  almlatlon,  tha  Input  tapa  of  activations  mat  be  fonattad 
as  shown  la  Appandlx  D1  for  actual  data  or  In  Appmdlx  D2  for  axpari- 
aantal  data. 
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oTOynrmc  thb  pbogeam  odtpot 

rigur*  7 ahcnni  the  flret  page  of  the  output,  which  le  a eusnary 
of  all  the  input  data.  Notice  on  the  fifth  line  that  at  leaet  0.67 
of  the  eeneora  In  the  atring  are  needed  to  conflm  a vehicle  track. 

The  ueer  ahould  be  awrare  that  the  coeputatlon  taking  place  Involves 
truncation  of  the  fractional  part  of  the  nuaber.  Thua  0.67  x 5 3. 

This  is  iaqiortant,  for  If  0.66  were  specified  and  two  sensors  were 
dropped  froB  the  atring  as  unreliable,  then  0.66  x 3 ■ i,  and  the 
prograa  would  halt  with  an  error  aessage,  since  at  least  two  sensors 
are  obviously  required  to  Identify  a track  direction.  The  eighth  line 
refers  to  dropping  hypoactlve  sensors,  aeanlng  any  unreliable  sensors, 
as  deteralned  by  the  adaptive  logic.  GRAPHING  CONTROL:  1 Indicates 
that  there  will  be  graphs  produced.  A zero  would  indicate  no  graphs. 
WINDOWS  ON  C**!)  indicates  that  the  graphs  will  dlscrlalnate  between 
vehicle  detections  and  false  alaraw,  will  display  all  windows,  and 
will  display  confirmed  vehicle  tracks.  The  smoothing  constant  is  the 
back  weight  p.  The  distance  between  sensors  Is  shown  and  will  always 
have  0.0  for  the  first  sensor. 


»■»»»»*»«»«»»»»—*»♦*•>*»*»—•»»«*«*«»—*»>•«»——«**»•—*•*»*»****—»****»*****»*****»*******************' 

•••  »«TTfWI  XeCOSNiriCN  POR  VCHiCLf  RLOM  RAST  SfNSORS  •*« 

THIS  IS  AN  CMfWU  Of  THC  AATTCAN  MTCCT.  ALOOA.  USING  SINULATCD  OATA  Z/12/''l 

HltTUHNW  I AVC.  VCIOCITV  ■ 24.00  KHa«A.  NAXIWN  VU.0CITY  « IS. 00  A/HA  NINIWN  VFLnCt^V  < IS. 00 

lASIOOUNOl  AV«.  VILOCirr  . 24.00  AN/HA.  NAXINUN  vetOClTY  • iS.OO  A/MA  NININUN  veiOCI»Y  . 15.00  A/HA 

THftC  AAC  S SINSOAS  ON  A AOAO  SeCNlNT  OA  1000.00  N.  AT  UAST  .ATO  AAE  NfCOfO  TO  CONAIAA  TAAJACTOAIES 

A VALID  STAIf  CONTAINS  AT  HAST  S OETKTIONS  NO  NONE  MAN  0.400  NIN.  AAAAT 

• TAAJ  HOST  U CONAIANCO  WAOAI  UADATINS  HEIGHTS.  ANY  SENSOA  HAVING  A HT.  DEiaM  0.050 
IS  HTAa>ACTIVI  AND  KILL  M OAOAAEO  AAON  THE  STAING  AATEA  i CONIKUT  IVE  AEAIOOS. 

THE  SUN  OA  HfIGHTS  NUST  K GREATER  THAN  0.500  TO  ACCEAT  A TRAJECTORY  CONA IRHATION. 

GHAAMtNS  CONTROL  t I NINUTES  AEA  GRAAH  • AO.OO  HINOOHS  ON  I'll  • 0 

THE  SN08THIN6  CONSTANT  IS  • 1.0000 

lENSdR  01  STANCE  IN. I 

1 0.0 
2 250.00 

S 250.00 

4 250.00 

5 250.00 


Fig . 7 — Summary  of  \npuf  data 
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FlgurM  8a  and  8b  aho*r  an  axaaplc  of  output  that  given  all  rala- 
vaat  inforwitlon  on  the  pxogreas  of  the  algorltha.  If  Input  data  are 
f roil  the  elMulatlonf  laformtion  la  shoim  on  convoye.  The  SENfSl  coluen 
Indlcctea  the  aenaor  being  deaerlhed.  The  CLOSE'-OPEN  columns  show  the 
time  of  the  upper  and  lower  portions  of  the  window  on  the  sensor.  For 
soomple,  the  first  entry  shoM  a window  wss  opened  at  0.764  minutes 
and  closed  at  1.335  minutes  for  sensor  4. 

The  column  labeled  DIR  shows  the  direction  of  the  vehicle  track. 

1 Is  easthound  and  2 la  westbound.  TRAJ  NO.  shows  the  Internal  tra- 
jectory number  assigned  to  the  vehicle  track.  Since  vehicle  tracks 
can  be  In  two  directions » there  Is  always  a westbound  and  eastbound 
vehicle  track  with  the  same  nuod!)er.  An  Interested  user  could  follow 
the  progress  of  a vehicle  track  using  Its  number  and  directions.  For 
example,  trajectory  1,  direction  1,  opened  windows  on  sensor  2 at  0.986 
minutes,  on  sensor  3 at  1.525  mlnutea,  on  sensor  4 at  2.086  minutes, 
and  on  sensor  5 at  2.711  minutes.  A vehicle  track  was  confirmed  at 
3.283  minutes  for  this  trajectory,  which  happened  to  be  a convoy  of 
five  trucks  (NRCNDT(5)). 

The  convoy  information  portion  of  the  printout  (for  simulation 
data  only)  shows  the  time  a convoy  enters  and  leaves  the  string,  and 
the  number  of  trucks  In  the  convoy.  The  C(WVOY  NO.  and  DIR  columns 
Identify  the  particular  convoy,  and  the  TRUCKS  colusm  shows  the  number 
of  trucks  in  the  convoy.  If  there  la  no  entry  In  this  column,  it  means 
that  a convoy  Is  leaving  the  string.  For  example,  the  first  truck  of 
convoy  1,  direction  1,  entered  the  string  at  time  0.0  with  five  trucks, 
and  the  last  truck  of  the  convoy  left  the  string  at  3.183  minutes. 

The  algorithm  Is  able  to  tell  If  a particular  convoy  Is  detected 
by  seeing  If  there  Is  any  overlap  between  the  last  trajectory  window 
and  the  convoy  transit  time.  For  the  example  we  have  been  following, 
the  convoy  left  the  string  at  3.183  minutes,  and  the  last  window  of 
the  trajectory  opened  at  2.711  adnutes  and  closed  at  3.283  minutes. 

Tims  the  algorithm  assumes  thst  the  confirmed  vehicle  track  Is  for 
that  convoy. 

Figure  8b  shows  that,  as  requested,  weights  are  updated  after 
every  five  trajectory  conflrnetlons.  The  number  of  valid  strips  and 
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Fig. 80  — Output  on  progrew  of  algorithm 
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Fig. 8b  — Output  on  pfogross  of  algorithm 
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ASTIs  on  Mch  aoncor  ara  ahoim,  aa  ara  r.ha  updatad  and  (resulting 
itam  aaooChli^).  In  thla  particular  axaapla  no  aanaora  ware  dropped 
fron  tha  atrlng;  If  any  had  baan  droppad,  thay  would  be  shown  at  this 
point. 

Figure  9 la  an  axaavle  of  suaawry  output  provided  on  convoy  detec- 
tions. Thla  has  oManlng  only  whan  input  data  cone  froai  tha  slnulatlon 
BK>del  or  axperinental  data  in  tha  fomat  shown  in  Appendix  D2.  For  each 
convoy  alaa  the  nuadbar  of  convoys  generated  and  detected  are  shown.  We 
see  that  of  the  20  generated  convoys  17  were  detected  by  the  algorithm. 
There  ware  18  confirmed  trajectories.  Thus  one  was  a phantom,  most 
likely  resulting  from  a combination  of  truck  detections  and  false  alarms. 


•••  CONVOY  MTtCnON  SUMNMT  ••• 


CONVOV  $Ut  NO.  GCNCRATtD  NO.  OfTKCTCD 

t 2 I 

2 <>  A 

2 2 2 

« 2 2 

2 2 2 

6 2 1 

TOO 
too 
too 
10  0 0 

It  0 0 

12  0 0 

12  0 0 

16  0 0 

12  0 0 

16  0 0 

IT  0 0 

It  0 0 

It  0 0 

20  0 0 

TOTM.2  I 20  IT 

PM6NTQN  TMJ  > 1 TOTAL  CCNFIANtO  • It 


F ig. 9 — Summary  of  convoy  datactioni 

A suoBMiry  of  unsmoothad  sensor  weights  at  each  time  period  is  shown 
in  Fig.  10.  The  mean  and  standard  deviations  of  the  weights  ara  shown 
for  each  smsor.  A sisdlar  sumsuiry  irili  follow  this  one  for  smoothed 
irslghts  containing  similar  information. 

Figure  11  is  an  axasgrla  of  the  optional  graphic  output  of  activa- 
tions on  each  sensor  with  no  discrimination  as  to  type  of  activation 
(false  alarm  or  vehicle),  and  without  windows.  We  have  found  this  out- 
put useful  in  that  it  is  similar  to  what  a human  observer  would  see. 
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M>«  seNSM  UllOHTS  SV  TIME  EEMIOO  ••• 


TIME  fSRIOO 


1 

2 

3 

6 

9 

l 

0.200 

0.200 

0.290 

0.2(0 

0.200 

2 

0.290 

0.290 

0.290 

0.0 

0.290 

> 

0.2TE 

0.2  TO 

0.16T 

0.0 

0.2TO 

MEAN  1 

0.2426 

0.2626 

0.2096 

0.066T 

0.2626 

STD  DEV  1 

O.0S46 

0.0196 

0.0619 

0.1199 

0.0396 

SENSOn 


ithese  ueicmts  me  not  snootheoi 


Fig  .10  — Summary  of  senior  weights 

A comparlaon  may  thus  be  made  between  the  accuracy  of  humans  and  that 
of  the  algorithm  In  detecting  vehicle  tracks. 

Figure  12  is  an  example  of  the  same  graphic  output  as  is  shown 
in  Fig.  11  but  with  discrimination  of  activations,  windows,  convoy 
midpoint  passage,  and  trajectory  confirmation  shown.  The  + sign  repre- 
sents activation  caused  by  vehicles,  and  the  * symbol  those  activations 
caused  by  false  alarms.  The  + signs  to  the  right  or  left  of  the  sen- 
sor represent  passage  of  the  first  and  last  truck  of  the  convoy  past 
the  sensor  midpoint.  The  ” symbols  represent  windows  for  conjectured 
vehicle  tracks  moving  to  the  left,  and  the  ^ symbols,  windows  of  con- 
jectured vehicle  tracks  moving  to  the  right.  The  symbol  represents 
vehicle  track  confirmation. 


INTERPRETING  ERROR  MESSAGES 

Correct  the  input  card  for  the  following  errors: 


Error 

5 

10 

15 

20 

25 


ID  on  card  2 is  not  1 in  Col.  2. 

Average  velocity  of  westbound  convoys  Is 
0 (cc*  3-10,  card  2). 

Average  velocity  of  aastbound  convoys  is 
0 (cc  31-40,  card  2). 

Maxlsium  velocity  of  westbound  convoys  is 
0 (cc  11-20,  card  2). 

Maxlsnim  velocity  of  eastbound  convoys  is 
0 (cc  41-50,  card  2). 


less  than  or  equal 
less  than  or  equal 
less  than  or  equal 
less  thsm  or  equal 


cc  iseauB  card  colton. 


(MIN. 


Fig.  11  — S-C  4060  graphic  output  (no  windows  shown) 
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firror 

30  Mlnlnum  velocity  of  westbound  convoys  is  less  than  or  eqm.1 
0 (cc  21-30,  card  2). 

35  Minimum  velocity  of  eastbound  convoys  is  less  than  or  equal  0 

40  B is  less  than  or  equal  0 (cc  61-70,  card  2). 

45  C is  less  than  or  equal  0 (cc  71-80,  card  2). 

50  W is  less  than  or  equal  0 (cc  1-10,  card  3). 

55  Road  segment  is  less  than  or  equal  0 (cc  11-20,  card  3). 

60  M results  in  less  than  2 sensors  (cc  21-30,  card  3)* 

65  B is  less  than  or  equal  0 (cc  31-40,  card  3). 

70  D is  less  than  or  equal  0 (cc  51-60,  card  3). 

72  The  number  of  sensors  in  the  string  is  greater  than  the 

maximum  permissible  (cc  61-70,  card  3). 

75  u is  less  than  or  equal  0 (cc  51-60,  card  3). 

80  The  sum  of  the  distances  between  sensors  does  not  exactly 

sum  to  the  road  segment  length  (card  5) . 

117  The  user  has  asked  for  more  minutes  of  simulated  time  than 

a graph  can  display.  Reduce  the  number  in  cc  71-78,  card  3. 
(Must  be  a multiple  of  10.) 


The  following  errors  are  catastrophic,  and  processing  halts  unless 
otlierwise  stated.  Many  call  for  diagnosis  by  the  maintenance  prograouter. 
We  have  never  experienced  these  types,  but  they  were  Included  because  if 
any  were  to  be  encountered,  the  results  would  be  catastrophic. 


grror 

200  A value  in  the  IDROP  array  has  gone  negative.  The  value, 

the  sensor  number,  and  simulated  time  the  errcr  was  detected 
are  shown.  The  maintenance  programmer  must  diagnose. 

210  Same  as  230  but  in  the  CHKWI.N  routine. 

220  Sane  as  260  but  in  the  CHKWIN  routine. 

230  A value  in  the  IDROP  array  has  gone  negative;  it  is  detected 

in  the  CHKOVL  routine.  The  sensor  number  and  value  are  shewn. 
The  maintenance  programmer  must  diagnose. 
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Error 

?40  The  direction  constant  K is  inpropcr;  it  is  detected  in  the 

CHKOVL  routine.  The  value  is  shown.  The  maintenance  program- 
mer must  diagnose. 

260  A value  of  the  NOPENT  array  has  been  detected  as  negative  in 
the  CHKOVL  routine.  The  trajectory  number,  direction  number, 
and  value  are  shown.  The  maintenance  programmer  must  diagnose. 

270  A value  of  the  NASTC  array  has  been  detected  as  negative  in 
the  CHKOVL  routine.  The  values  of  N7J,  K,  12,  and  NASTC  are 
shown.  The  maintenance  programmer  must  diagnose. 

300  The  number  of  trucks  in  a convoy  has  been  read  in  as  a nega- 

tive value  from  the  external  device  (tape  or  disk).  Thus 
the  input  data  are  faulty.  The  negative  value  convoy  nuoiber 
and  time  of  activation  are  shown.  This  error  occurred  in  the 
READ  routine. 

410  A value  in  « IDROP  array  has  gone  negative,  as  detected  in 

the  TRA.TCM  routine.  The  value,  the  sensor  number,  and  KL  are 
shown.  The  maintenance  programmer  must  diagnose. 

500  Same  as  error  260  but  in  the  CHKADM  routine. 

510  Same  as  error  410  but  in  the  CHKADM  routine. 

520  The  number  of  cells  available  in  the  window  array  plus  the 

next  available  storage  cell  less  one  is  greater  than  the 
cell  number  of  the  first  open  window.  The  values  of  the 
first  open  window  cell  number,  the  next  available  storage 
cell,  and  I and  K are  shown.  The  error  occurred  in  the 
CHKOVL  routine.  The  maintenance  programmer  muse  diagnose. 

530  A value  in  the  NAVLID  array  has  gone  negative  in  the  CHKOVL 

routine.  The;  value  and  1,  J,  and  K are  shown.  The  main- 
tenance programmer  must  diagnose. 

The  following  message  can  also  occur : 


THERE  ARE  LESS  THAN  'x'  SENSORS  IN  THE  STRING.  THERE  ARE  'y'. 
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lli*  «nr»r  — ■»mn  im  by  « Hut  of  all  ••nswc  dco^^odi  ttm 

ilia  atrlnc  (aigolflad  fay  1).  Iho  ot«ri»«s  of  llvs  oinooro  has  goam  faolcnr 
ttigt  mIbmI  for  to  cc  2]i-30,  card  3. 

mwmjssm^ 

ifpmdiM  PI  ahotm  the  foroat  of  input  data  to  tha  algorltlm  that 
eaoa  frotu  aottreaa  other  thau  tha  alaailation  nodal.  Appandlx  B ahows 
a fully  aatup  data  dock  for  anaeutlng  tha  alforlthn  on  tha  Band  ISl 
360/dS  iaatallatlon  fron  a data  tapa  raaultlng  from  tlo  alanlation 
nodal  of  dppandtx  B.  Appasidix  f containo  tha  full  sourea  llatlnt  of 
tha  pattam  dataction  algorithn. 


mm  mmm  tww  m «i  jmimTOw  mdwi 


■Ibm  followlac  it  A litt  o<  rMdm  noabAr  aaaJa  f®»  »aa  la  AMAcatiaf 

tihA  «lMlAtl4MI  MOdAlt 

a)  2UM2$ 

<2)  «L0t509 

(3)  4774243 

(4)  1727922 

(5)  4aiMS3 

(6)  4837431 

(7)  2443237 

<•)  1S17245 
(2)  1217421 

(10>  4184335 


i 


I 
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ApiMCtdlx  B 

pgCT  mxk  mCK  fot  THE  sncLmai  hodel 


TIm  follfiwliit  !•  « fully  ««t«^  duck  co  run  thu  ulaulutloa  nodul 
OD  tlM  land  ZIM  3M/65  co^putar  Inatallatlon.  Tha  output  data  will 
ba  aauad  on  tapa  auabat  002325  for  latar  uaa  by  tha  pattaxa  datactlou 
alcorltlm. 


//C4S00H0S  JOB  (5772«1000.l20»t'AMTHONY  P.  CIERVO* .CLASS-A 
//GO  EXEC  PGM-CMVSiH««ErtinM>llOK 
//STEPLIB  00  OSN««*5*2.LIH^.DISP«SHR 

//G0.SIHU02  on  SYSn(lT«R.nCH-(AECPM«PAfLRECt.>ftO.HL<SIZE-nOOrHUPNU>|  > 
//6n.SIMU03  r>0  SYSnuT«A«0CA*(RECPMxFSA«LRECL«133«HtKSIZE»1330tHllPNni>l) 
//G0.SIMII05  no  nnaAMP«$YSi)^ 

//GO.SIMUOP  on  (INIT•TAPE«nS^•RA562•VOL-S€R*00^3^S• 

//  nCB»(IReCFM-VH,BLKSlZF*i2A04,La6CL«2*»t 
//  niSP«(NEW,KEEP» 

//en.siMiiiT  nn  oisp«SHR*t>si«-SYSi.siM2PeRR 
//on.SYSiN  00  • 

this  is  an  example  of  the  simulation  model  2 DEC  1972 
I 20  1000.0  1000.0  S SO  250.0  0.2  20.0  0.15  40.0  1000.0  R10R509 
0.0  1.0  0 

0.1  I 0.3  2 0.4  3 0.6  4 0.9  5 1.0  6 * 

O.l  24.0  20.0  35.0  15.0  WEST 

0.06  24.0  20.0  35.0  15.5  EAST 

0.5  1.5  6.0  0.5  0.2  3.0  0.5  O.Ol  0.05 

/• 

// 
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ippandlx  C 

mg  SOOtCE  UStlW?  OF  TO  81MPLATI0M  MODEL 


oto 

H,«e«HAN  B/12/71  PREB 

UAST  COLIWN  IS  72  ••  PRE8 

NOBHALLV  A>Of>6  IS  INTgfiltR 

THE  SYST6K  MAS  * Tmir.KS  RAwOfiM  STtrP  VAHIAKI.6  IN  ARRAY  1 *•  SIZE  CNVYS  PREB 

The  system  mas  a FT.RIICKS  in  A^RAV  I ••  PHONEY  TO  PRINT  TRUCKS  PREB 

normally  Moog  IS  real 

rH-FINE  RANMAJ.E,  PETAJ.F  AS  REAL  FUNCTIONS  PREB 

permanent  ENTITIES  EREB 

EVERY  ALRN. level  HAS  A LAMOA  •»  AV6.  TINE  MTHEEN  FALSE  ALARMS  IMIN)  PREB 

ANO  A im  ••  UPPER  BOUND  UN  UNIFORM  01ST  OF  PREB 

••  BUR.ST  LENGTH  (MIN)  PREB 

ANO  A LB  ••  LONER  HOUND  OF  BURST  (MIN)  PREB 

ANO  AN  OFF.PNT  ••  POINT  TO  THE  ALARM  OFF  EVENT  OF  PREB 

••  THE  ALARM  LEVEL  PREB 

ANO  A RATE  ••  AVG.  TIME  BETWEEN  OCCURANCES  OF  PREB 

•0  THIS  LEVEL  PREB 

AND  AN  ON. ALARM. TIME  ••  TIME  TURNED  ON  PREB 

ANO  AN  ON. COUNTER  ••  NBR.  OF  TIMES  UN  PREB 

ANO  A TOTAL. ON. TIME  ••  TOTAL  TIME  LEVEL  IS  ON  PREB 

ANO  A TIME. BETWEEN  •'  TIME  BTWN  LEADING  EDGES  PREB 

OEFINE  OFF.PNT  AS  AN  INTEGER  VARIABLE  PREB 

OEFINE  ON. counter  as  AN  INTEGER  VARIABLE  PREB. 

EVFRY  SENSr'R  MAS  AN  ON.TI.NE  " TIME  ITS  READY  FOR  A TRANSMISSION  PREB 

ANO  A OELTAS  •'  DISTANCE  BETWEEN  INTEGRATION  INCR.  PREB 

ANO  A BASE  ••  distance  TO  TRAVERSE  SENSOR  PREB 

AND  A COFFF  ••  YIELDS  INCR.  AREA  WHEN  BULTIPLIHJ  PREB 

••  BY  TRUCK  position  PREB 

ANO  A KILL.SIG  ••  SIGNALS  IF  SENSOR  WAS  DESTROYED  ON  PREB 

••  IMPACT  1 . DEAD  0 - LIVE  PREB 

AND  A PRINT.POSITION  ••  FOR.  THE  PRINT  HAP  OF  DETECT  I ONSPREB 

ANO  A LEVELl .COUNT  “COUNTS  LEVEL  I ALARMS  PREB 

ANO  A L6VEL2. COUNT  “COUNTS  LEVEL  2 ALARMS  PREB 

AND  A LEVEL3. COUNT  “COU.mTS  LEVEL  3 ALARMS  PREB 

ANO  A DETECT. TRUCK  “CTHINTS  TRUCK  DETECTIONS  PREB 

define  PRINT.POSITION  ANO  KILL.SIG  AS  INTEGER  VARIABLES  PREB 

define  LEVFL1.C"OnT  , LFVEL2. COUNT  . LEVEL3. COUNT  AS  PREB 

INTEGER  VARIABLES  PBEB 

EVERY  ROUTE. DIRECTION  MAS  AN  UPPER. BNO  “ ON  VELIKITY  BTWN  SENSORS  PREB 

AND  A LOWER. BNO  “ ON  VELOCITY  BTWN  SENSORS  PREB 

AND  A K)  “ parameter  OF  A 0 - I BETA  GIST  PREB 

ANO  A K2  “ parameter  OF  A 0 - 1 BETA  OIST  PREB 


AND  A DIR. SYMBOL  “ ALPHA  lOENT  OF  DIRECT  I ONPREB 


ANO  A CMV.RATE  “ MEAN  TIME  BETWEEN  CNVYS  PREB 
DEFINE  DIR, SYMBOL  AS  AN  ALPHA  VARIABLE  PREB 

TEMPORARY  ENTITIES  PPEH 

EVERY  FAKF  HAS  A S. trucks  IN  WORD  3 “ ALLOWS  ACCESS  TO  TRUCKS  ARRAVPREB 
OEFfNE  S. TRUCKS  «S  AN  INTEGER  VARIABLE  PREB 

EVERY  CUNVUV  HAS  A NBR .OF .TRUCKS  PPEB 

ANO  A SPACING  “DIST,  BETWEEN  TRUCKS  IM.  ) PREB 

ANO  A VFI.riCITV  “ CURRENT  SPEFD(m/MIN)  PREB 

ANO  A SENS*. NBR  “ SENSOR  TME  LFAD  TRUCK  IS  IN  PREB 

AND  A INC.INfl  “ POINTS  TO  NFXT. SENSOR  EVENT  PREB 

“ FOR  THIS  CONVOY  PREB 

ANO  A CNV.LF''GTH  “ CURRENT  LENGTH  OF  THE  CONVOY  PREB 

AND  A DIRtCTIMN  “ IN  WHICH  CONVOY  IS  MFAOED  PREB 


10 

12 

lA 

16 

30 

AO 

50 

60 

70 

BO 

90 

100 

110 

120 

122 

123 

12A 

125 

130 

132 

lAO 

150 

160 

170 

IHO 

190 

200 

210 

211 

212 

213 

217 

22D 

22A 

225 

230 

2A0 

250 

260 

270 

2B0 

290 

300 

306 

305 

310 

320 

330 

3A0 

350 

36(! 

370 

3H0 


**  I - WEST  t 2 - 6AST  P«EB  3<»0 

AND  A NHR.Crmv  ••  CONVOY  NUMBER  (COUNT)  PKER  392 

DEFINE  NBA. OF. TRUCKS*  SENSR.NBR*  INC.INO*  NBR.CONV.  PREH  400 

OIRECTION  AS  INTEGER  VARIAHLES  FRE6  410 

EVENT  NOTICES  INCLUDE  FACSE. ALARM*  LARM.OFF*  FRNT.MAF  RREN  420 

EVERY  ALARM. rate. ON  ••CHANGES  THE  FALSE  ALARM  LEVEL  FRED  430 

HAS  AN  AL.TYPE  ••  TYRE  OF  ALARM  LEVEL  FRE«  440 

»•  'I  - AMHIENT*  2 - MEDIUM  PREB  450 

••  3 - HIGH  PREH  4A0 

DEFINE  AL.TYPE  AS  AN  INTEGER  VARIABLE  PREB  470 

••  MARKS  PASSAGE  OF  1ST  AND  LAST  TRUCK  PREB  4B0 
••  THROUGH  THE  CENTER  OF  SENSOR  PREB  490 

CNV .NUMBER  ••CONVOY  PASSING  THE  hiIOPOINT  PREB  500 
SN.NO  ••  THE  SEN^^OR  BEING  EFFECTED  PREB  510 


EVERY  MIO.POINT.PASS 


HAS  A 
ANO  A 
AND  A 


MARK 


••  1,-  1ST  TRUCK  2.-  CAST 


define  CNV.NUMMER  ANO  SN.NO  AS  INTEGER  VARIABLES 


EVERY  INCREMENT .CHECK 

HAS  A 
ANO  A 
ANO  A 


PREB  514 
PREB  520 
PREB  530 
PREB  540 
PREB  550 


••  TESTS  FOR  DETECTION  OF  CONVOY 
SENS.NHR  ••  SENSOR  OF  TEST 

CNVY.NBR  ••  CONVOY  BEING  TESTED 

OIST.TRAV  ••  CURRENT  DISTANCE  INTO  SENSOKPREB  560 
••  OF  FIRST  TRUCK  OF  CONVOY  PREB  570 
OEFINE  SENS.N6R  ANO  CNVY.NBR  AS  INTEGER  VARIABLES  PREB  5R0 

EVERY  SCHEO. NEXT. CONVOY  ••  CREATES  AND  ISSUES  ANOTHER  CONVOY  PkEB  540 

HAS  A CNV.niRECTIDM.  ••  OIRECTIDN  TO  HE  TRAVERSEOPREB  600 
ANO  A PRIER.CONVnv  ••  CONVOY  IN  FRONT  PREB  610 

DEFINE  CNV. OIRECTION  ANO  PRIER. CONVOY  AS  INTEGER  VARIABLES  PREK  620 


CNV.NBR 

VELOC 

NXT.SENSR 


EVERY  NEXT. SENSOR 

MAS 
ANO 
ANO 
ANO 
ANO 

DEFINE  CNV.NBR*  NXT.SENSR 
AS  INTEGER 

EVERY  destroy. CONVOY 

HAS 


••  STARTS  A CONVOY  THRU  THE  NEXT  SENSOR 


••  CONVOY  BEING  CONSIOFRFD 
••  SPEED  FOR  THE  SENSOR 
••  THE  SENSOR 
PRIOR.COKV  ••  THE  CONVOY  AHEAD  OF  THIS  0NEPRE8  670 
BACK. POINT  ••  THE  CONVOY  BEHIND.  0>IF  NOnEPREB  675 


PREB  630 
PREB  640 
PREB  650 
PKEB  660 


PRIOR. CONV  ANO  BACK. POINT 
VARIABLES 

••  AFTER  CONVOY  LEAVES  STRING  06 STY  IT 
A OEST.CNV  ••  THE  CONVOY  NUMBER 


DEFINE  OEST.CNV  AS  AN  INTEGER  VARIABLE 

• I 

••  global  VARIABLES 

• I 

DEFINE  SPACE. factor.  "METERS  PER  SPEED  <M| 


LAMBDA. 

OEAO.TIME. 

MAX. TIME. 

ROAD.LNGTH. 
NOMINAL. BASF. 
HIST. BTWN. SENSOR 


"CURRENT  AVG  TIME  BTRSEN  FALSE  ALARMS  (MIN) 

" TIME  SENSOR  IS  OFF  AFTER  AN  XMISSION  (MIN) 

••  simulation  ENDS. after  a convoy  is  thru 
" SENSOR  FIELD  ANO  TIM6.V  > MAX. TIME  (MIN) 

" LENGTH  OF  SENSOR  EIELO(M) 

" base  OF  triangle  for  PERFECTLY  AIMED'  SENSOR  PREB  B20 


PREH  680 
PREB  640 
PREB  700 
PREB  710 
PREB  720 
PREB  730 
PKEB  740 
PREH  750 
PREB  763 
PRFB  770 
PREB  7B0 
PREB  740 
PKEB  BOO 
PREB  Bin 


DFFINF  I.  .).  K, 
FIN.CNV 


" OISTANCE  BETWEEN  SENSOR  CENTERS  FREB  B30 

AS  VARIAHLES  PHEM  B40 

•‘  COUNTERS  PREB  B50 

• ' NUMBER  OF  completed  CONVOYS  PREB  854 

" signals  CHART  PRINTING  0 - NO  , 1 - YES  PREH  K60 

NUMBER  OF  CONVOYS  GENERATFO  PREB  B70 

MAX.NBR.CONVS*  ‘"  SIMULATION  STOPS  AFTER  THIS  MANY  CONVOYS  PREH  BBO 
••  HAVE  PASSED  THRU  THE  FIELD  PREH  B40 

••  ERROR  COUNTER  FOR  INPUT  UATA  PREH  400 

" INO  FOR  MAG  SENSORS  0 - NO  1 - YES  PREB  402 

" EXTERNAL  OATA  SET  FOR  WRITING  UBTECTIUNN  PREB  902 

••  HOLDS  LARGEST  CONVOY  SITE  PREB  404 

" IF  1.  CNVYS  CREATFO  AT  A CONSTANT  RATE  PREB  406 

AS  INTEGER  VARIABLES  PREB  RIO 

DEFINE  CNV.CNTR  AS  AN  INTEGER.  l-0|MENSIONAL  ARRAY  PREB  412 

DEFINE  C0NVY.SI2F  AS  AN  INTEGER,  2-UIMENSIONAL  ARRAY  PKEB  914 

ENO  PHSH  920 


PRINT. MAP. 
NB.IIE.CNV,*  ' 


ERROR  . 

MAG. SENS  . 
DISK 
.JSAVE 
.CONST. CNV 


•fAIM 


0«»  SfiMStwS.  setiClr  Si»ISO(l  6fOM6TRV 
UT  OISK  m ^ I*  SIETS  exTeKMAt.  DATA  SET  NBA. 

CALI.  AO.SEMSW.INPO 

••  SihECTIONS^^*°**  ^OMVOVS-AMO  SCHEOIItE  A CONVOV  IN  BOTH 

I I 

CAU  AD.COMVOY.INfO 

• t 

*1  AEAO  INPIMMATIQN  ON  FALSE  ALAANS  AND  SCHSOULE  ONE  OF  EACH  TXFE 
CALL  AO. false. ALAAN. INFO 

I • 

•'  INITIALIZE  The  FAIMTING  0?  THE  £.ENSOR  MAP 

IF  PRINT .MAP  IS  NE  0,  CALL  PRINT  REGARDLESS 

LET  RETHEEN.V  ■ •TRACE* 
start  simulation 

• • 

ENO 


MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 


10 

20 

24 

SO 

>0 

50 

60 

TO 

flO 

90 

lOO 

110 

120 

130 

140 

ISO 

lAO 

164 

170 

IMO 

190 


ROUTINE  HETAJ.FUl.KT.  STREAM!  ••  «,  HERMAN  8/5/71 

••I 

••THIS  ROtiTlNE  CALLS  GAMMAJ.F.  JOHNKS  METHOD. 

I f 

define  K1,  K2,  ANO  X AS  REAL  VARIABLES 
DEFINE  STREAM  AS  AN  INTEGER  VARIABLE 
IF  KK»0»  let  6RR.F  ■ 1*7  ELSE 
IF  KJ<»0,  LET  ERR.F  ■ 14R  ELSE 
let  X ■ GAMMAJ.FI l.O,  Kl,  STREAM) 

RETURN  WITH  X/IX  ♦ GAMMAJ.FI 1.0*  K2»  STREAM) | 

ENO 


SUPRfHITINE  TO  CANCEL  .FALSE  .ALARM 

I • 


••  M, BERMAN  8/5/71 


• I 

• I 
t t 


THE  FALSE  ALARM  RATE  HAS  CHANGEO,  CANCEL  THE  CURRENT  FALSE  ALARM 
ANO  reschedule  it  USING  THE' NEK  RATE. 


CANCEL  THE  FALSE. ALARM 

LET  TIME  - exponential. FaAMHT)A.2)  ••  TIME  TILL  NEXT  ALARM 
RESCHEDULE  THE  EALSE.ALARM  AT  TIME.V  ♦ TIME 

return 

ENO 


CAFA  10 
CAEA  20 
CAEA  30 
CAFA  AO 
CAEA  50 
CAEA  60 
CAEA  TO 
CAFA  80 
CAFA  90 
CAFA  100 
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inuTIwg  (Mi;*N,K,STReAM| 

MCfttCtf.ATKtN  OF  RAMMA  OISTRItSUTED  VARIAT6S  HV  JOHNK'S  »«ETHOO. 

••THIS  ALfi'mTHM  MUST  BF  USEO  FOR  0<K<1  INSTEAU  OF  RAMMA.F,  AND  SHOULD 
*•86  USFD  FOR  HON-InTCGRAL  VALUES  OF  K<5t  ALTHOUGH  IT  IS  2.5  TO  ^ 
••TIMES  StJVSR  THAN  GAHNA.F.  FOB  FURTHER  DISCUSSIOR  SEE  "GENERATING 
••6AHMA  niSTRIBUTEn  VARIATES  FOR  COMRUTER  SIMULATION  MODELS". 

••H,  R.  HERMAN, THE  RANO  CORPORATION,  R-641-PK,  FEBRUARY  IWl, 

DEFINE  MEAN,K,RK,I,Z,A,H.n.E,X,V.  AND  M AS  REAL  VARIABLES 
DEFINE  STREAM  AS  AN  INTEGER  VARIABLE 
IF  HEAN<«0,  LET  FRR.F-145  ELSE 
IF  K<"0,  LET  ERR.F-14A  ELSE 
LET  l«0 

let  RRoTRUNC.FIKI 
LET  D-K-KR 

IF  KXaO,  GO  TO  BETA  ELSE 
LET  E-l 

FOR  I«1  T;>  KK,  let  E>E«RANDOm.F(STRERM) 

LET  Z<»>LnG.E.F(E) 

IF  n«*0,  RETURN  WITH  2*(M6AN/K»  ELSE 
•BETA* 

let  A-i/n  let  B>i/(i-n» 

•NEXT^ 

let  X"R ANOOM.fi  STREAM)*" a 
LET  V»RANOO'<.F(STR€AN)**H'*X 
IF  Y<«1,  GO  OUT  ELSE  GO  TO  NEXT 
•OUT* 

LET  W»X/Y 

LFT  Y«-Lnr,.E.F(RANOnM.F(STHEAM) ) 

RETURN  WITH  (Z4W*Y)*IM6AN/tO 
ENO 


ROUTINE  TO  PRINT  •*  M. BERMAN 

B/12/71 

PRNT 

10 

> 1 

PRNT 

20 

••  THIS  ROUTINE  PERMITS  PRINTING  OF  A CONTINUOUS 

GRAPH  OF  FALSE 

PRNT 

30 

••  alarms  at  INTERVALS  EOUAL  TO  THE  SENSOR  DEAD 

TIME. 

PRNT 

40 

• , 

PRNT 

50 

start  new  page 

PRNT 

60 

1 , 

PRNT 

TO 

PRIMT  1 DOUBLE  LINE  THUS 

PRNT 

BO 

TIME(MfN) 

SENSOR  NUMBER 

PftNT 

PRNT 

90 

100 

FOR  I ■ 1 TO  N. SENSOR,  WRITE  I AS  120)  8 113 

♦ 110/ 

PRNT 

lie 

(1 

* N. SENSOR)  * I). I 

2PRNT 

120 

PRINT  1 double  LINE  THUS 

PRNT 

130 

C .000 

♦♦PRNT 

140 

+ ♦ + ♦+■,  c++++4*'f  ♦++  1 

PRNT 

150 

SCHEDULE  A PRNT.MAP  AT  DEAD. TIME 

BRNT 

160 

WRITE  DEAD. TIME  AS  /,  D 18,3),  S 1,  "I", 

B 120,  "1" 

PRNT 

170 

LET  LINES. V • 999999 

PRNT 

172 

RETURN 

PRNT 

180 

END 

PRNT 

190 
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«0UTiNi;  TO  <»o.cnNvov.impo  ••  m.  hermam  «/4/7i 

• I 

•*  7MIS  <«ni)TIN6  HEADS  THE  CONVOY  OISTRtBUTlON  Of  TRUCKS  t THE  V6LOC 

••aetween  Convoys  oist,  paraheteks  and  schedules  an  east  and  nest 

••CONVOY  TO  INITIALUE  THE  SIHULATION 

f I 

DEFINE  CNV  AS  AN  INTEGER  VARIARLE 

CREATE  A FAKE 
SKIP  2 LINES 
PRINT  I line  THUS 

♦♦♦  CONVOY  INFORHATION 

read  SPACE  ••SPACING  MULTIPLE***  CONST. CNV  *•  CONSTANT  RATE  FLAG 
L^T  SPACE. factor  <■  SPACE  • 0.06 
PRINT  2 lines  with  SPACE  THUS 

DISTANCE  METWEEN  TRUCKS  IN  A CONVOY  IS  •••.**••  M.  FOR  EACH  KM/HR. 

IF  SPACE. FACTOR  IS  LE  0.0  * ADO  I TO  ERROR 

PRINT  1 line  THUS 

777  ERROR  IN  AHOVE  LINE 

ELSE 

IF  CONST. CNV  » I 

PRINT  2 LINES  THUS 

(NOTE!  ALL  CONVOYS  CREATED  AT  CONSTANT  RATE  THIS  RUN.) 

ELSE 

SKIP  I CARO 

READ  TRUCKS  ••  READS  PAIRS  OF  VALUES  FOR  STEP  FUNCTION.  FIRST 
••  CUMULATIVE  PR08  C THEN  VALUE.  • AFTER  LAST  PAIR 
PRINT  2 LINES  THUS 

OISTRIRUTION  OF  TRUCKS  IN  A CONVOY 
TRUCKS  CUMULATIVE  PROA 

LET  I • FT.RUCKS 

•PRT*  PRINT  I line  with  IVALUE.A(I)  ANO  PROR.AU)  THUS 

«««  «,»«* 

LET  JSAve  • 1 VALUE .A m ♦•  SAVE  SIZE  OF  LARGEST  CONVOY 

let  I • S. TRUCKS! n 

IF  I ■ 0,  GO  OUT  ELSE  GO  PRT  ••  PRINT  VALUES 

» f 

••  READ  THE  CONVOY  RATE  ANO  VELOCIY  DISTRIBUTION  FOR  EACH  DIRECTION. 
••  COMPUTE  Kl  r.  K2  FOR  THE  BETA  VELOCITY  OIST. 

•nUT*  SKIP  Z LINES 

RESERVE  CnNVV.SIiei*.*)  AS  2 BY  JSAVE  ••  DIMENSION  STATISTICS 
CREATE  FVERV  ROUTE .OIRFCT ION ( 2 ) 

FOR  I ■ 1 TO  2 ••  I IS  west  ROUND*  2 IS  EAST  BOUND 

on 

READ  rate. CNV*  “EAN  , hqoE  * UPOER  * LOWER  * 

OIR.SYMROLI I » 

LET  MEflN.VFL  • mean  * 16.<S667 
LET  MOnE.VFL  • MUDE  • 16.6667 
LET  LlIWER.RNOm  ■ LOWER  ♦ 16.6667 
let  UPPER.RKDm  • lIPPFR  • 16.6667 

LET  CNV. RATE! I)  • I.O/RATE.CNV  "TIME  heTWEEN  CONVOYS 
IF  MFAH.VEL  EO  ROOE.VEL  " THIS  IS  A SPECIAL  CASE 
LET  Kill)  - 2.0 
LET  K2II)  » 2.0 
GO  ROUNn 


ROCN 

10 

RDCN 

20 

ROCN 

30 

RDCN 

40 

ROCN 

SO 

ROCN 

60 

ROCN 

62 

ROCN 

66 

RDCN 

70 

ROCN 

80 

RDCN 

90 

RDCN 

100 

ROCN 

103 

ROCN 

110 

RDCN 

120 

ROCN 

U?o 

RDCN 

140 

RDCN 

150 

ROCN 

160 

ROCN 

170 

ROSN 

172 

ROSN 

174 

ROSN 

17R 

ROCN 

ISO 

RDCN 

190 

ROCN 

200 

ROCN  210 
ROCM  220 
RDCN  2)0 
ROCN  240 
ROCN  250 
ROCN  251 
RDCN  251 
ROCN  252 
ROCN  254 
ROCN  2T0 
RDCN  2B0 
ROCN  290 
ROCN  )00 
RDCN  301 
RDCN  302 
ROCN  310 
RDCN  320 
ROCN  330 
ROCN  340 
RDCN  342 
RDCN  344 
ROCN  346 
ROCN  34H 
ROCN  350 
ROCN  360 
ROCN  370 
ROCN  3R0 
ROCN  340 


K.. 
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nxH)?M  ^ I SS 

tet  Killl  • <MEAN,VEU  - UOWE«i.«NOIJ ) ) * ( LOWE«.HH0(  I » ♦ 

UPPER, nMDM)  - 2,0  • MODE,  VEU/t  (UPPER, f'NOC  n - 
tUHER,HNn(in  *IM§A»I,VEL  - MOnE,VFL>) 

LET  K2(l)  • Kl(I)  * (UPPER. flNOU»  - MEAN.  VEL )/( MEAN.  VEL  - 

LOWEK.HNO( I) I 


RUCN 
RPCN 
ROCN 
ROCN 
ROCN 
ROCN 
ROCN 
RDCN 
ROCN 
ROCN 
ROCN 

PER  MN.  WHICH.  IS  ONEROCN 
CONVOY  EVERY  if**i»*,***  MIN.  THE  AVG  VELOCIJTY  IS  '♦A**,*'  KM/HR.  ROCN 
THE  Ml'OF  VELOCITY  IS  KM/HR,  THE  SLOWEST  IS  *•*♦,**  KM/HR, ROCN 


let  KH  n ■ Kl(I)  ♦ I 
let  X2(I)  • <21 1)  ♦ 1 
•ROUND*  PRINT  A LINES  WITH  OIR . SYMHOL ( I ) . 

MEAN  , MODE  , LOWER 

K2(I)  thus 

the  «*•*  OiRECTION  HAS  A CONVOY  RATE  OP 


RATE.CNV,  CNV.RATE(I), 

, UPPER  t Kll I It 


*«« 


MOOE.VEL  IS  LE  0.0 
IS  GE  UPPER. ENOI I ) 


AND  THE  FASTEST  IS  **•».**  <M/HR..  Kl  IS  •*.**♦  ANO  <2  IS  **,»«* 
SKIP  2 LINES 

IF  RATE.CNV  IS  LE  0 OR  MEAN.VEL  IS  LE  0.0  OR 
OR  UPPER.RNOin  IS  LE  0.0  OR  LOWER. 8NDII) 

AOO  I TO  ERROR 
PRINT  I LINE  THUS 
???  ERROR  IN  AMOVE  A LINES 
GO  TO  NXT 

else  ••  SCMOULE  the  first  CONVOY 
CREATE  A CONVOY  CALLFO  CNV 
AOO  I TO  NR. (IP .CNV 
AOO  I TO  CNV.CNTR( I 1 
LCT  NKR.CnNV(CNV)  ■ CNV.CNTRin 
CREATE  A (“EXT. SENSOR  CALLED  INC.InO(CNV) 
let  NMR. of. trucks (CNV I ■ TRUCKS 

AOO  I T‘1  COKVY.SIZEn  . NHR  .OF  . TRUCKS  ( CNV  I I ••  COLLECT  STATISTIC 
let  X • RFTAJ.FKl  ( I)  t KZlIIt  7)  ••  BETA  VARIATE 

let  VEL0C( INC.tNOICNVl)  ■ X » (UPPER.BNOI I ) - LOWER. HNO( I I ) 


k L^kAt'sl  f A 


ROCN 

RDCN 

ROCN 

ROCN 

ROCN 

ROCN 

ROCN 

ROCN 

ROCN 

ROCN 

ROCN 

ROCN 

ROCN 

ROCN 

ROCN 

RDCN 

ROCN 

ROCN 


let  cnv.npr(inc.ino(cnv>i  • CNV 

IF  I • It  let  J • l GO  PAST  OTHERWISE  LET  J*  N, SENSOR 
•PAST*  let  nXT.SEnSRIINC.Ino(CNVI)  ■ J 
let  niRECTIUN(CNV)  ■ I 

SCMEO'ILE  the  next. SENSOR  CALLED  INC.INO(CNV)  AT  0.0 
WRITE  O.OtNMR.np.TRUCKSICNVIt  It  It  CNV.CNTA(l)  AS  HINARY 

USING  DISK 

•NKT'LOOP 

return 

FNO 


ROCN 

RDCN 

ROCN 

ROCN 

RDCN 

ROCN 

ROCN 

RDCN 

RDCN 

ROCN 


AOO 
AlO 
A20 
A30 
AAO 
A50 
A52 
ASA 
A60 
A70 
4RQ 
A90 
500 
SIO 
520 
530 
5 AO 
550 
5G0 
570 
5«0 
5V0 
600 
610 
611 
612 
61A 
620 
630 
63A 
6A0 
650 
660 
670 
6R0 
6V0 
700 
710 
71A 
716 
720 
730 
7A0 


49 


10IITIM6  TO  HO. FALSE. *LA«M.InPO  ••  M.  GERMAN  8/4/7i 

I ( 

••  THIS  ROIITIHF  RFAOS  EACH  OF  THE  THREE  FALSE  ALARM  LEVELS  AND 
••  SChFOIILE  the  Hir.H  AND  MEDIUM  LEVELS  FOR  INITIALIZATION. 

) • 

LET  n.ALHH. LEVEL  - 3 
CREATE  EVERY  ALRH. level 
PRINT  2 LINES  THUS 

**■¥  FALSE  ALARM  INFORMATIDN  **■* 

ALARM  level  ALARMS/MIN  MfN  RURST  (MIN)  MAX  BliRST  (MIN)  ARR/MIN 
REAll  lam  ••  AMBIENT  RATE 

let  lam  ■ lam  • N. sensor 

PRINT  I LINE  WITH  LAM  THUS 

I ««««.««« 

let  LAMOAID  ■ l.O/LAM  *•  TIMg  BTWFEN  ALARM  AT  THIS  LEVEL 
LET  LAMHOA  ••  LAMOAIU  ••  START  AT  AMBIENT 

let  dn.alahm.timei n - o.o 

SCHEIXILE  A false. ALARM  AT  0.0 
FOR  I ■?  TO  3 

no 

REAO  LAM,  IIHd).  LB(I),  RAH  ••  RAM  IS  THE  RATE  OF  ARRIV  FUR 
let  lam  • LAM  m N. SENSOR 

PRINT  1 LINE  WITH  I,  LAM,  LB(I)t  UH(1),  GAM  THUS 

A* 

LET  LAMOAd)  ■ 1,0/LAM 

LET  RATFd)  • 1.0/GAH  ••  TIME  BETWEEN  0CCURANC6S  OF  LEVEL 
IF  LAMOAd  ) CE  LAMOAd)  OR  GAM  IS  LE  0.0  OR  LB  d » LS  0.0  OR 
UBd)  LT  L«(I)  OR  LAMOAd)  LT  0.0  , ADO  1 TO  ’•HROR 
PRINT  1 LINE  THUS 
TT?  ERROR  IN  ABOVE  LINE 

FLSE  " schedule  an  alarm  of  EACH  TYPE 

schedule  an  alarn.rate.on  at  .01  * I 

LET  AL.TYPF(ALARM.RATE.ON)  - I 
CREATE  A LARM.PrF  CALLED  OEE.PNTd) 

LOOP 

return 

END 


ttDFA  10 
ROFA  20 
ROEA  30 
aOEA  *0 
ROEA  50 
ROFA  60 
ROEA  70 

roEa  ho 

ROFA  90 
ROFA  100 
ROFA  no 
ROFA  112 
ROFA  120 
ROFA  130 
ROFA  140 
ROFA  142 
ROFA  144 
ROFA  146 
ROFA  150 
ROFA  160 
LVLROFA  170 
ROFA  172 
ROFA  IHO 
ROFA  190 
ROFA  200 
ROFA  210 
ROFA  220 
kOFA  230 
ROFA  240 
ROFA  250 
Ri)FA  260 
ROFA  2H0 
ROFA  290 
ROFA  302 
ROFA  310 
ROFA  320 
ROFA  330 
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«'  M.  BKHMAN  ft/3/7l 


RtHITINK  TO  HO.SCMSftB.  INFO 

• I 

• • THIS  RfiilTINt  RFAOS  Twp  kDAII  LFNfiTH,  NIiNHER  OF  SENSORS, 
••INCREMENTS  IIWOER  EACH  TRIANRLE,  NllMINAL  BASE,  AND  OTHER 


RA2N 
ROSN 

NUMBER  OF  ROSN 
INFORHAT lONROSN 


• •PERTAINIMR  TO  SENSORS, 

• •triangle  is  SELECTED. 

i • 


start 

PRINT 


NEW  PAGE 
1 OmiPLE 


LINE  THUS 
+++♦-.  SIMULATION 

rections  thru  a censor  field  +++++ 

DEFINE  COMMENT  AS  A 1-D i MENS lONAL  ALPHA 
RESERVE  CnMMENT(P)  AS  20 
FOR  I • I TO  20  , READ  COMMENT! I)  AS  A A 
SKIP  1 LINE 

FOR  I a 1 TO  20,  WRITE  COMMENT! i>  A?  A A 
SKIP  I LINE 
release  COMMENT!*) 

RESERVE  CNV.CNTR!*)  AS  2 


the  actual  BASE  AND  HEIGHT  OF  EACH  SENSOP.  ROSN 

ROSN 
RDSN 
ROSN 
RDSN 

OF  TRUCK  CONVOYS  MOVING  IN  TWO  1/ 1 ROSN 

RDSN 

VARIABLE  •'  ALLOWS  ‘the  RDSN 
• ' USER  ONE  CARDROSN 
••  FOR  COMMENTS  RDSN 


• I 
I • 
I I 


number  of  CONVOYS  TO  BE  GENERATED  AND  TIME  TO 


READ  PRINT  CONTROL, 
halt  SpiOLATION 

READ  PRINT. MAP,  MAX.NBR.CONVS,  MAX. TIME  ••  PRINT. MAP  > 0,  PRINTS 
PRINT  1 DOUBLE  LIME  WITH  MAX. TIME,  MAX.NBR.CONVS  THUS 
SIMULATION  halts  if  time  EXCEEDS  ****.***  MIN.  OR  CONVOYS  GENERATED 
CF6DS  ***• 


ROSN 
RDSN 
RDSN 
RDSN 
ROSN 
RDSN 
ROSN 
RDSN 
ROSN 
ROSN 
EXRDSN 
RDSN 


IF  (MAX.NBR.CONVS  IS  LE  0)  OR  (MAX. TIME  IS  LF  O.D),  ADD  1 TO 

PRINT  I lime  THUS 

???  ERROR  IN  ABOVE  LINE 

ELSE 


ERRORRD.SN 

RDSN 

RDSN 

RDSN 

ROSN 


0 

020 

030 

040 

050 

060 

070 

OBO 

ORO 

loo 

110 

120 

130 

140 

150 

160 

162 

17() 

174 

IRO 

190 

200 

210 

220 

230 

240 

250 

260 

270 

2B0 

290 


READ  ROAO.LNGTH,  N. SENSOR  , NHR . INCREMENTS  , NOMI NAL . BASE  . 

PROB.OEAO,  STD. 06V  .DEAD. TIME,  AR6A,.C2,  S66D.V(8) 

, RAN.NBR 

IF  NBR. INCREMENTS  « 1 ••  THE  SENSORS  ARE  MAGNETIC 

LET  MAG. SENS  » 1 
LET  NOMINAL. BASE  a .01 
GD  TO  MAG 

EtSE  ••  MOT  MAGNETIC  SENSORS 
LET  MAG. SENS  * O 
•MAG^  SKIP  1 line 

PRINT  1 LINE  XHOS 

+♦+  semsdr  parameters  +++ 

SKIP  1 LINE 

IF  MAG. SENS*  NE  0 ••  MAGNETIC  SENSOR  STRING 

PRINT  1 LIME  THUS 

THIS  RUN  IS  FOR  A MAGNFTIC  SENSOR  STRING  ONLY  + ++++■•■+  + + + + ♦♦ 
SKIP  1 LINE 


RDSN  300 
ROSN  310 
ROSN  312 
RDSN  322 
ROSN  324 
ROSN  326 
ROSN  326 
ROSN  327 
RDSN  329 
ROSN  330 
ROSN  34P 
ROSN  350 
RDSN  360 
ROSN  362 
RDSN  364 

RDSN  366 


else 

PRINT  2 LINES  WITH  ROAD.LNGTH,  N. SENSOR  , NOMINAL. BASE  THUS 
ROUTE  SEGMENT  IS  *•***,«*  m.  with  *a*  EOtlALLV  SPACED  SENSORS. 
EACH  WITH  NOMINAL  BASE  OF  *•*♦.**  M. 

IF  MAG. SENS  NE  n • • KfrtGNtTIC  SENSOR  STRING 
PRINT  1 LINE  WITH  AREA  THUS 

dftfction  probability  of  each  magnetic  sensor  is  *.*** 

GO  TO  ONE 


RDSN  36H 
RDSN  37P 
RDSN  3M0 
RDSN  390 
RDSN  3HO 
ROSN  3H2 
RDSN  3«4 
RDSN  3H6 


•^■UHMiaiMlMMinHHHMaMMMtiMMlMittUiiiMiliMAHiiv^^ 
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etsf? 

IF  <^a^J,MF'^  r 1,(>  <<  iLL  Ff'llflL  HASFS 

. PRINT  1 LINF  WITH  AKFA  THUS 
All  triamglfs  have  a height  he  m, 

Gn  Tn  SIX 

PLSe 

L6T  Cl  » AREA  ••  COEFF.  FOR  HEIGHT 

PRINT  I LINE  WITH  Cl.  C2  THUS 

The  COEEF.  for  COMPUTING  HEIGHT  ARE  (Cl)  (C2)  ***>!<*«<!,  >»«i 

•SIX'  PRiiMT  ILINE  with  NER  . increments  Thus 
every  sensor  triangle  has  *«=*»  INCREMENTS. 

■ONE*  IF  ROAO.LMGTH  LE  0 OR  N. SENSOR  LE  0 OR  NOMINAL.BAS6  LE  0 OR 
ARFA  LE  O OR  NBR.  I.JCRtMENTS  LF  0,  AOD  1 TO  ERROR' 

PRINT  1 LINE  THUS 

?T??  ERROR  IN  ABOVE  3 LINES 

ELSE 

PRINT  3 LINES  WITH  PROF. DEAD,  STO.DEV  , DEAD. T I ME , SEED. v ( 8 ) 

T 1 

The  prob,  thf  sensor  is  oeao  on  impact  is  «.***,  stanoard  deviation 

FROM  THE  ROAO  IS  THE  OEAO  TIME  OF  A SENSOR  AFTER  ACTIVATION 

IS  HIN.  THE  RANDOM  SEFO  FOR  SELECTING  TRIANGLES  IS  *>!<**«*«. 

IF  (PROB.nEAn  I.T  0 OR  PROB.OFAO  GT  liO)  OH  STO.OFV  LT  0.0 

OR  HEAD. TIME  LT  0.0,  AOD  1 TO  ERROR 

PRINT  1 LINE  THUS 

???’  ERROR  IN  ABOVE  3 LINES 

FLSF 

IF  RAN. NBR  a 1.0 

LET  height  a AREA  •'  ARFA  IS  HEIGHT  FOR  CONSTANT  BASES 
LET  BASFX  = NUMiNAL.BASE 
PRINT  2 LINES  THUS 


RUSH  3HH 
ROSN  3MR 
RDSN  390 

RDSN  390 
ROSN  390 
RDSN  390 
RDSN  391 

RDSN  392 
ROSN  39A 
ROSN  ^.00 
RDSN  A.10 
RDSN  <^20 
RDSN  m30 
RDSN  <^<.0 
ROSN  <.60 
RDSN  A70 
ROSN  4B0 
RDSN  P-90 
ROSN  500 
ROSN  510 
ROSN  520 
ROSN  530 
RDSN  54D 
RDSN  550 
RDSN  552 
ROSN  55  i 
RDSN  553 
RDSN  554 


•BACK* 


(NOTE  S ALL  SENSORS  hAVF  EQUAL  BASES  THIS  RON.) 

*'  SET  niSTANCE  BETWEEN  SENSORS 

LET  01  ST. BTWN. sensor  = ROAG.lnGTh/ (n, SENSOR  - ’I) 

SKIP  2 LIMES 
‘’RINT  2 LINES  THUS 

+■*•+  SENSOR  ATTRIRUTEG  *** 

sensor  RASE(M.)  slope  X DELTAS  DELTASIM.)  ARFA  DFADIal 
CREATE  each  SEnsur 
for  EACH  SENSfw 
DO 

IF  RANDOM.FIR  ) IS  t.F  PROB. DEAD  ••  SENSOR  DEAD  Dw  IMPACT 
LET  BASF  ( SFhtSOH  ) = 0.0 

LET  K I LL . S I G( SFNSOR ) « 1 '•  SIGNALS  SENSOR  DEAD 

GO  PR  NT 

ELSF  ''NOT  killed  on  [hpaCT 

IF  NAG. SENS  NE  0 • ' MAGNETIC  SFNSOK  STRING 
GO  mags 

FcSE  •'  CHECK  for  equal  RASES 

IF  HAM.MHR  = 1.0  <«  ALL  EQUAL  BASES 

GO  TO  Tun 

^'-SE  ••  COMPUTE  STAndahO  TRIANGLES 

LET  ONURMAI.  ■ NURMTI.  .E  (P.O.  STO.DEV.  8) 

IF  ArtS.E  (DMURMAL)  GT  NOM 1 HAL . BASE /2 . 0 ••  FAR  FROM  kflAO 

LET  BAS^  ( SF^iSOR  ) • 0.0  ••  ZERO  mFANS  NO  TRUCK  DETECTION 

let  area  « 0.0 


RDSN 

ROSN 

ROSN 

RDSN 

RDSN 

ROSN 

)RDSN 

RDSN 

RDSN 

RDSN 

RDSN 

RDSN 

RDSN 

RDSN 

RDSN 

RDSN 

ROSN 

ROSN 

ROSN 

RDSN 

ROSN 

ROSN 

RDSN 

RDSN 

HUSO 


556 
5 GO 
570 
572 
5T4 
576 
57B 
580 
590 
600 
61G 
620 
622 
630 
660 
642 
644 
646 
650 
6H0 
690 
690 
700 
710 

716 
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GO  PRNT 

ROSN 

720 

ELSE  •'  COMPUTE  BASE 

ROSN 

730 

LET  BaSEX  2.0  ((  NOMINAL. BASE/2, 0»  **  2 

ROSN 

740 

- ONORMAL  **  2 > •*  .5 

ROSN 

74? 

IF  RAScX  LT  1,0  ••  METER.  IFOR  ROUNOING  PURP11SES)X'* 

ROSN 

750 

r,U  MACK 

ROSN 

740 

ELSE  " COMPUTE  HEIGHT  »N()  AREA 

ROSN 

770 

let  height  * Cl  /IDNORMAL  <■*  2 ■*.  C2) 

ROSN 

7H0 

•Twn* 

LET  AREA  ■BASEX  « H61GHT/2 

ROSN 

7R0 

LET  BASEISENSOri  > BASEX 

ROSN 

«00 

LET  OELTASI SENSOR!  ■ MASEX/NHR. INCREMENTS 

ROSN 

RIO 

LET  fOBFEISENSOR)  « 4.0  ■»  AREA  * DELTAS  ( SENSOR ) / 

ROSN 

H20 

BASEX  **  2 

ROSN 

R3ti 

GO  PRNT 

ROSN 

H40 

‘MARS' 

LEI  BASEISFnSOR)  * 1,0 

ROSN 

R64 

let  OELTASI sensor  I - ,0 

ROSN 

865 

LET  CUEFFI SENSOR)  * AREA 

ROSN 

866 

•PRNT* 

LET  PRINT. POSITION(SENSOR)  ■ 13  + ( 110/ 1 N.  SENSOR  R-  1)  * 

ROSN 

730 

SENSOR) 

ROSN 

740 

PRINT  1 LINE  WITH  SENSOR,  BASE ( SENSOR > , CDEFF < SENSOR ) , 

ROSN 

750 

OELTAS (SENSOR) .AREA, KILL. SIGI SENSOR)  THUS 

ROSN 

760 

LOOP 

ROSN 

7RC 

RETURN 

ROSN 

790 

ENO 

ROSN 

ROO 

i 

I 
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i(nilTIMf-  f'OR  SUMMARY  ••  M,  BERMAN  R/12/71 

• » 

••  Ai.L  RELAVENT  STATlSTIf-S  ARE  PRINTED  HERE  AND  THE  SIMULATION  HALTS 


OEEiNfi  TOT. TRUCK,  TOTLTRK,  GRAND. TOT  AS  INTEGER,  VARIABLES 


, I 


••  FINISH  false  alarm  STATISTICS 


FOR  K«  I TO  3 

IF  LAMRA  EO  landau  ) 

GO  OUT 
ELSE 

•OUT*  let  nN.CnilNTER(K»  - ON. COUNTER U)  ♦ I 

let  TOTAL. on. TIME(K»  • TOTAL .ON.T IME U I - + TIME.V 

- ON. ALARM. TIMEIK) 

< « 

••  SUMMARY  OF  THE  SYSTEM  FALSE  ALARM  RATES 

1 1 

start  new  page 

PRINT  2 LINES  THUS 

SYSTEM  FALSE  ALARMS  ♦♦♦♦ 

alarm  level  no.  OF  BURSTS  AVG.  BURST  LENGTH(MIN)  AVG  BURST  ARR/MIN 

FfIR  I - 1 TO  3 
DO 

LET  BURST  - TOTAL -ON. T IME U ) /ON. COUNTER ( 1) 

LET  TME.BTWN  ■ TIME. BETWEEN! II/ON.COUNTER ( I ) 


• • 


PRINT  I LINE  KITH  I,  ON. COUNTER! I).  BURST , I . 0/TM£ . HTWN  THUS 
LOOP 


••  SENSf’R  FALSE  ALARM  HATES 

• I 

SKIP  2 LINES 
LET  TOTAL  ■ 0.0 
PRINT  2 LINES  THUS 

+■*■+♦  SENSOR  FALSE  ALARMS  >♦++ 

sensor  ALARMS/MIN  j level  1 LEVEL  2 LEVEL  3 ALL  LEVELS 
for  each  sensor 
on 

LET  TOT  -! LEVEL  1. COUNT  I SENSOR)  + LEVEU2. COUNT  1 SENSOR ) 

♦ LEVFL3.C0UNT- SENSOR) )/TIME.V 
PRINT  1 LINE  WITH  SENSOR,  LEVELl .COUNT  I SENSOR ) /T IHE .V  , 
LEVEL2,CUUNT( SENSOR  I/TIME. V,  LEVEL3.C0UNT ( SENSOR ) / T I ME . V, 
TOT  THUS 

• •••>»,♦**  ****,♦•♦  m***,**m 

LOOP 


»•  CONVOY  STATISTICS 

• • 

START  NEW  PAGE 
PRINT  1 LINE  THUS 

♦ ♦♦♦  NUMHFR  OF  CUNVO''S  GENERATED  ♦•♦♦♦ 
LET  GRANO.TOT  • 0 
FOR  J ■>  I TO  2 
DO 

LET  TOTLTRK  • 0 

PRINT  2 LINES  WITH  0 IR  . S YM!»OL  ( J ) THUS 


SUMY 

10 

SUMY 

20 

SUMY 

30 

SUMY 

30 

SUMY 

30 

SUMY 

30 

SMRY 

31 

SMRY 

32 

jMRY 

33 

SMRY 

34 

SMRY 

35 

SMRY 

36 

SMRY 

37 

SUMY 

50 

SUMY 

60 

SUMY 

70 

SUMY 

80 

SUMY 

90 

SUMY 

100 

SUMY 

110 

SUMY 

120 

SUMY 

130 

SUMY 

140 

SUMY 

150 

SUMY 

160 

SUMY 

170 

SUMY 

190 

SUMY 

200 

SUMY 

210 

SUMY 

220 

SUMY  230 
SUMY  240 
SUMY  260 
SUMY  260 
SUMY  270 
SUMY  2H0 
SUMY  790 
SUMY  300 
SUMY  310 
SUi-iY  320 
SUMY  330 
SUMY  340 
SUMY  350 
SUMY  360 
SUMY  3 7(1 
SUMY  340 
SUMY  3M0 
SUMY  400 
SUMY  410 
SUMY  470 
SUMY  430 
SUMY  440 
SUMY  4SO 
SUMY  460 
SUMY  4/0 
SUMY  4H(I 
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nixecTiON  s **** 

CONVOY  SI?F  fHPOIIfiMCV  TOTAL  TRUCKS  GeNERATEO 
EO«  I ■ I TO  JSAVe 


let  TOT, truck  - CONVY.SIZEt J«I>  • I 

ley  TOTLTRK  • TOTLTRK  ♦ TOT. TRUCK 

LET  GRAND. TOT  • GRAND, TOT  ♦ TOT.^TRUCK 

PRINT  1 LINE  WITH  I,  CONVY. S I ZE U . II » TOT. TRUCK  THUS 

LOOP 

PRINT  1 LINE  WITH  CNV.CNTRIJ).  TOTLTRK  THUS 
TOTALS J *♦*•*♦* 

SKIP  2 LINES 
LOOP 

PRINT  I LINE  WITH  CNV.CNTRUJ  + CNV.CNTRC2).  GRAND. TOT  THUS 
GRAND  TOTALS*  ****  *«■♦**** 

I a 

••  CONVOY  DETECTIONS  PER  SENSOR 

a a 

start  new  page 

PRINT  2 LINES  THUS 

♦ ♦♦+  AVERAGE  CONVOY  DETECTIONS  HV  SENSOR 
SENSOR  DETECT lONS/NINUTE  DETECT  1 ONS/CONVDY  DETECTIONS/TRUCK 
EOR  EACH  SENSOR 
DO 

LET  DETEC. MIN  « DETECT. TRUCK! SENSOR > /T IME. V 
let  DETEC.CNV  ■ DETECT. TRUCKISENSORI/FIM.CNV 
let  OETEN.TRK  •>  DETECT. T«UCK(SENS0R»/GRAND.  TOi 

PRINT  1 LIKE  WITH  SENSOR,  DETEC.HIN,  DETEC.CNV,  DETEN.TRK  THUS 

LOOP 

STOP 

ENO 


DETECT lONS/TRUCK 


■55- 


evPNT  ALASM.KaTe.DN  SAVIMG  THE  EVENT  NOTICE  •'  h.  BERMAN  «/5/71 

I • 

••  THIS  EVENT  SETS  THE  NEW  ALARM  LEVEL  . SCHEDULES  THE  NEXT  CVE  AND 
••schedules  the  off  time  of  THE  NEW  LEVEL. 

I f 

DEFINE  TYPE  AS  AN  INTEGER  VARIABLE 

LET  TYPE  ■ AL.TYPEIALARm.RATE.ON)  ••  TYPE  OF  THIS  ALARM 
LET  TIME  - EXPONENTIAL. FtRATEITYPE).  21  ••TIME  OF  NEXT  ALARM 
SCHEDULE  the  alarm. rate. on  AT  TIME.V  ♦ TIME 

LET  TIME  « UNIFORM. F(LPITYPE) ♦ OBITYPEI.  2)  »•  DURATION  OF  THIS 

••  LEVEL 

••  IF  THE  CURRENT  ALARM  LEVEL  IS  AMBIENT  SET, THE  NEW  ALARM  LEVEL. 

••  schedule  an  off  time,  cancel  the  CURRENt  FALSE  ALARM 

• • 

IF  LAMBDA  IS  equal  TO  LAMOA(l) 

LET  LAMBDA  • LAMOA(TYPG)  ••  SET  NEW  LEVEL 
LET  riME.BETWEENITYPEJ  • TIME. BETWEEN! TYPE  I ♦ TIME.V 

- ON. ALARM. TIMEITYPE) 

LET  ON. ALARM. TIMEITYPE ) ■ TIME.V 

LET  TOTAL. ON. TIME! 1)  « TOT AL .ON ,T i ME ! U + TIME.V 

- ON. ALARM, TIMEIII 

LEV  ON.COONTER! 1 » ■ ON .COUNTER ! I ) ♦ 1 

CALL  CANCEL. FALSE. ALARM  ••  CANCEL  THE  FALSE  ALARM  OF  THE 

••  OLD  LEVEL 

•SCHO'  SCHEOULE  the  LARM.OFF  CALLED  OFF.PNT! TVPF ) AT 

TIME.V  ♦ TIME 

RETURN 

OTHERWISE  ••  SEE  WHICH  TYPE  IS  ON. 

I • 

" IF  THIS  TYPE  IS  ALREADY  ON  CHECK  ITS  OFF  TIME.  IF  CURRENT  OFF 
••TIMF  IS  LESS  CANCEL  IT  AND  RESChEO  AT  THE  LATER  TIME.  IF  GREATER 
••IGNORE  SCHEDULING  A NEW  OFF  TIME. 

c • 

IF  lambda  is  FOIIAL  to  LAMOAITYPEI  ••  SAME  TYPE  IS  ON 
IF  TIME.V  ♦ TIME  IS  I.E  TIME . A IOFF.PNT  I TYPE  ) ) 

RETURN 

OTHERWISE  ••  EXTEND  THE  DURATION  OF  LAMBDA 
CANCEL  the  LARM.OFF  CALLED  OFF .PNT I TYPE ) 

CAUSE  THF  LARM.OFF  CALLEO  OFF .PNT I TYPE ) AT  TIME.V  + TIME 
return 

OTHERWISE  '•  *SEE  IF  ITS  THE  MEDIUM  OR  HIGH  RATE  THATS  ON 
••  IF  THIS  IS  the  medium  LE  'EL  A'^D  THF  h|(,h  RATE  IS  ON,  AMD  THE 
••  SCHFOULFO  ALARM  OFF  TIMF  IS  GREATER  THAN  THAT  ALREADY  SCHEDULED 
••  FOR  THE  HIGH  RATE,  SChED' AN  ALARM  OFF  OTHERWISE  RETURN 

f I 

IF  TYPE  IS  EQUAL  TO  2 • » THEN  THF  HIGH  RATE  IS  ON 

IF  TIME.V  ♦ TIMF  IS  LE  T IME . A! OFF. PNT ( 3 ) ) 

RETURN 


ALRT  10 
ALRT  20 
ALRT  30 
ALRT  40 
ALRT  50 
ALRT  50 
ALRT  70 
ALRT  80 
ALRT  90 
ALRT  100 
ALRT  no 
ALRT  120 
ALRT  130 
ALRT  140 
ALRT  150 
ALRT  160 
ALRT  161 
ALRT  162 
ALRT  164 
ALRT  166 
ALRT  167 
ALRT  169 
ALRT  170 
ALRT  180 
ALRT  190 
ALRT  200 
ALRT  210 
ALRT  220 
ALRT  230 
ALRT  240 
AL«T  250 
ALRT  260 
ALRT  270 
ALRT  280 
ALRT  290 
ALRT  300 
•LRT  3iO 
ALRT  320 
ALRT  330 
ALRT  340 
ALRT  350 
ALRT  360 
ALRT  370 
ALRT  3H0 
ALRT  390 
ALRT  400 
ALRT  410 
ALRT  420 


otherwise  ••  SCHEDULE  AN  OFF  TIME  . EXTEND  OFF  TIME  OR  IGNORALRT  930 


IF  0FF.PNT!2)  is  I'»  THE  EV.S  ••  AH  OFF  OF  THE  MEDIUM  TYPE  ALRT  4«(i 

••  IS  ALREADY  SCHEDULED  ALRT  450 

IF  TIME.V  + TIME  IS  LF  T I ME. A!OFF . KNT ( 2 * > ALRT  4h0 

RETURN  ••  IT  NEED  NUT  HE  EXTENDED  ALRT  4/0 

otherwise  ••  EXTEND  IT  ALRT  4H0 

CANCEL  the  LARM.OFF  CALLED  UEF.PNT!;?I  ALRT  4V() 

RFSCHFDULE  THE  LARM.OFF  CALLED  OFF.PNT! 2)  ALRT  500 


56 


AT  TIHIE.V  ♦ TIME 


KETURN 

othermise  V'.no  off  of  the  meoium  type  is  scHeoin.Eo 

R(l  SCHD 

OTHEIIWISE  " THE  HEOtOM  RATE  IS  ON.  CHANGE  TO  THE  HIGH  KATE.  IF 
•*  THE  HIGH  RATE  HILL  GO  OFF  AFTER  THE  MEnitiM  RATE. 

••  CANCEL  the  MEOIOM  KATE  ALARM  OFF  EVENT.  ALHAVS 
••  SCHEOULE  an  alarm  (IFF  FOR  THE  HIGH  RATE 
LET  LAMROA  - LAMOA(S) 

LET  TOTAL. ON. TIME(2>  ■ TnTAL.OK.TIMEI2l  ♦ TIME.V 

- ON. ALARM. riME<2) 

let  ON.cmiMTERl2»  ■ ON.COUNTERI2>  ♦ I 

LET  TIME.RETWEENO)  « TIME.RETMEENI3)  * TIME.V 

- ON, ALARM, T1MEI3) 


let  ON.ALARMiTIMEm  • TIME.V 

call  CANCEL. false. alarm  »•  AND  RESCHDULF  IT  AT  THE  NEW  RATE 
IF  TIME.V  + TIME  IS  LT  T I MF. A| OFF.PNTI 2 ) ) 

GO  SCHO  ••  scheoule  an  off  for  the  high  rate 
FLS6 

cancel  the  LARM.OFF  CALLEO  OFF.PNTI2I 
GO  SCHO 

ENO 


ALRT  510 
A.LRT  520 
ALRT  530 
ALRT  5A0 
ALRT  550 
ALRT  5fcO 
ALRT  570 
ALRT  5K0 
ALRT  590 
ALRT  592 
ALRT  593 
ALRT  594 
ALRT  595 
ALRT  596 
ALRT  S9H 
ALRT  600 
ALRT  610 
ALRT  620 
ALRT  630 
ALRT  640 
ALRT  650 
ALRT  660 


EVENT  OESTKOY. CONVOY  SAVING  THE  EVENT  NOTICE  ••H.  HERMAN  R/12/71 

• I 

" THIS  EVENT  OESTROYS  THE  CONVOY  ANO  ASSOCIATEO  NFXT  SENSOR  EVENT 
*•  NOTICE.  SIMULATION  WILL  END  IF  TIME  OR  NOMHEK  OE  COnVOYS  HAS 
••  keen  EXCEEDFO 

• I 

DEFINE  CNV,  BCK.CNV  AS  INTEGER  VARIABLES 


f I 


LFT  FIN. CNV  « fin. CNV  + I t»  COUNTS  COMPLRTEO  CONVOYS 
let  CNV  » neST.CNVIOESTROV. CONVOY) 

LET  8CK.CNV  ■ BACK. POINT! INC. INOICNV) ) " CONVOY  BBHINO  THIS  1 

IF  BCK.CNV  NE  0 

let  PRIOR.CONVIINC.InOIBCK.CNV) ) ■ 0 ••  INDICATES  NO  MORE  CNV 
ELSE 

WRITE  TIME.V,  0,  2.  DIRECT  lONI  CNV ).,  NRR.CONV  I CNV ) AS  BINARY  USING 

DISK 

destroy  the  next. sensor  called  INC.INOICnv) 

DESTROY  THE  CONVOY  CALLED  CNV 

IF  (FIN. CNV  GE  MAX.NHK.CONVSI  OR  MTIME.V  GE  MAX, TIME) 

ANO  IFIN.CNV  EO  NB.OF.CNV)) 

WRITE  TIME.V  * 2..1,  3,  0.  0 AS  BINARY  USING  DISK  ••  FALSE  ALARM 

••  TO  CLOSE  any  remaining  WINDOWS 
WRITE  TIME.V  ♦ 4. ,1,3,  0,  0 ..S  BINARY  USING  DISK 
WRITE  TIME.V,  0,  9,  0.  0 AS  BINARY  USING  DISK 
CALL  SUMMARY 

ELSE 

RETURN 

END 


OECN 

in 

OECN 

20 

'OECN 

30 

OECN 

40 

OECN 

50 

OECN 

60 

OECN 

TO 

OECN 

BO 

OECN 

K2 

DECK 

90 

OECN 

92 

OECN 

93 

OECN 

94 

OECN 

95 

OECN 

100 

OECN 

no 

OECN 

112 

OECN 

120 

OECN 

140 

OECN 

150 

OECN 

151 

OECN 

152 

OECN 

153 

OECN 

154 

OECN 

155 

OECN 

160 

OECN 

170 

OECN 

IHO 

OECN 

190 
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EVFWT  FALSE. ALARM  SAVIMR  THE  EV3HT  NOTICE 

FAAL 

10 

» 1 

faal 

20 

• • 

THIS  EVENT  WILL  CAUSE  A FALSE  ALARM  ON  A SENSOR  IE  THE  SENSOR  IS 

FAAL 

SO 

• t 

ON.  IT  ERINT  & WRITES  THE  TIME  OP  ACTIVATION.  IT  RESCHEDULES  THE 

FAAL 

AO 

NEXT  FALSE  ALARM. 

FAAL 

50 

• • 

FAAL 

AO 

LET  1 « RANDUH.PtE)  A N. SENSOR  A .«  ••  SENSOR  NUMEER 

FAAL 

TO 

IF  KILL.SIGIII  IS  GT  0 >•  THE  SENSOR  WAS  DESTROYED  ON 

IMPACT 

FAAL 

GO 

GO  SCHO 

FAAL 

90 

ELSE 

FAAL 

100 

IF  ON.TIMFin  IS  LT  TIMErV  ••  THE  SENSOR  IS  ON 

FAAL 

101 

IF  LAMRDA  IS  EO  lamoaiu 

FAAL 

102 

LET  OliT.FIFRINT.FnSITIONm)  ■ "I" 

FAAL 

lOA 

ADO  1 TO  LFVELI. COUNT (II 

(FAH 

104 

GO  WRTE 

FAAL 

105 

ELSE 

FAAL 

106 

IF  LAMBDA  IS  EO  LAMOAIEI 

FAAL 

lOH 

LET  OUT.FIPRINT.FOSITIONdll  • »2» 

FAAL 

no 

ADO  1 TO  LEVELZ.COUNTIII 

FAAL 

111 

GO  WRTE 

FAAL 

112 

ELSE 

FAAL 

n* 

LET  OUT.F(FRIMT.FOSITIONm  I - «♦« 

FAAL 

120 

ADO  1 TO  LEVELS. COUNT! II 

FAAL 

122 

•WRTE*  WRITE  TIME.Vt  I«4,0,0  AS  RINARV  USING  DISK 

FAAL 

130 

LET  ON.TIMEIII  • TIme.v  ♦ DEAO.TIME 

FAAL 

140 

REGAROLESS 

FAAL 

150 

•SCHD*  let  time  " EXRrWENTlflL.FlL»»M«»f.»A,  3»  ••  T!«E  T!lL  NEXT 

ALARM 

FAAL 

160 

SCHEOULE  THE  FALSE. alarm  AT  TIME.V  ♦ TIME 

FAAL 

170 

RETURN 

FAAL 

ino 

END 

FAAL 

190 
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••V5NT  IWC^EMFnT. CHECK  SAVING  THE  EVENT  NOTICE  "H.  BEftMAN  H/ll/71 

r t 

• This  event  checks  eo«  a convoy  detection  ix  a sensors  sphere  of 

• INFLUENCE.  THE  NEXT  INCREMENT  CHECK  IS  SCHEDULED  AT  OELTAT.  IF 

• there  is  a OETFCTION  its  RECOROEO.  no  increment  check  will  be 

• SCHEDIILEII  if  the  last  truck  of  the  CONVOY  will  he  out  of  the 

• sensors  sphere  of  influence. 

II 

define  cnv.  sens  as  integer  variables 


OBTAIN  attributes  OF  THE  EVENT 

let  sens  - SENS.NBRC INCREMENT. CHECK)  ••  SENSOR  NBR 
LET  CNV  . CNVY.NBRI INCREMENT. CHECK)  ••  CONVOY  NBR 
LET  FIST  ■ ntST.TRAV(INCREMENT.CHECK)  " POSITION  OF  1ST  TRUCK 

1 1 

IF  MAG. SENS  NE  0 '•  THE  SENSOR  IS  MAGNETIC 

CALL  MAG. DETECTIONS  ( SENS.  CNV,  PIST) 

RETURN 

ELSE 

LET  BASE.niST  • BASE(SENS)  ••  BASE  LENGTH  OF  SENSOR 

• I 

I^=  0M,T1HE(SENS)  IS  LE  TIME.V  ••  SENSOR  CAN  TRANSMIT 

• I 

" calculate  the  PROBABILITY  OF  NOT  DETECTING  EACH  TRUCK  IN  THE 
••  SENSORS  SPHERE  OF  INFLUENCE 

I I 

LET  PROH  ■ l.O  '•  INIALIZE  PROBABILITY 
LET  half. rase  ■ HAS6.niST/2.0  ••  1/2  THE  BASE 

LET  SPAC.niST  « SPACING(CNV)  ••  SPACE  BETWEEN  TRUCKS 

LET  COEF  - CUFFF  ISENS)  ••  YIELD  INCREMENT  AREA  FROM  OIST 

FOR  I « n TO  NBR.UF.TRUCKSICNV)  - I 
DO 

LET  TRUCK. POSITION  «PIST  - I * SPAC.DIST 
IF  TRUCK. POSITION  IS  LE  0.0  ••  IS  TRUCK  IN  BASE 

GO  OUT 

ELSE  ••  SEE  IF  ITS  BEYOND  BASE 
IF  TRUCK. POSITION  IS  G6  HASE.DIST 
GO  TO  NEXT  "TRUCK  IN  CONVOY 
ELSE  " TRUCK  IS  WITHIN  BASE 

IF  TRUCK. POSITION  IS  GT  HALF. BASE  "ON  DECREASING  SIDE 
LET  TRUCK. POSITION  - BASE.DIST  - TRUCK. POS I T I ON 
ELSE  " ITS  ON  THE  INCREASING  SIDE 
let  pros  ■ PROB  * (l.O  - COEF  * TRUCK . PUSI T I ON ) 

•NEXT®  LOOP 

•OUT*  " SEE  IF  OETECTION  IS  MADE 

• I 

IF  PROB  IS  LT  RANDIIM.F  (3)  ••  A OETECTION  IS  MADE 

LET  UN. T (ME  I SENS)  ■ TIME.V  ♦ DEAD. TIME  " SENSOR  IS  NOW  OFF 
LET  ilUT.FIPKIMT.PnSITIONISENS))  - D I R . SYMBOL ( DI RECT I ON ( CNV ) 
WR!TF  TIME.V, SENS, A, DIRECTIOnICNVI. NBR. CrpiVICNVI  AS  BINARY 

USING  DISK 

AOO  1 TO  DETECT. TRUCKISENS) 

LET  TIMt  - ON.TIMFISFNSI  " TIME  OF  NEXT  CHECK 
GO  CmFCK 

FLSF  " CONVOY  NOT  OFTFCTEn 


INCK 

10 

INCK 

20 

INCK 

30 

INCK 

AO 

INCK 

SO 

INCK 

60 

INCK 

70 

INCK 

BO 

INCK 

90 

INCK 

100 

INCK 

110 

INCK 

120 

INCK 

130 

INCK 

140 

INCK 

150 

INCK 

152 

INCK 

153 

INCK 

156 

INCK 

158 

INCK 

159 

INCK 

159 

INCK 

160 

INCK 

170 

INCK 

IBO 

INCK 

190 

INCK 

200 

INCK 

210 

INCK 

220 

INCK 

240 

INCK 

250 

INCK 

260 

INCK 

270 

INCK 

2B0 

INCK 

290 

INCK 

300 

INCK 

310 

INCK 

320 

INCK 

330 

INCK 

340 

INCK 

350 

INCK 

360 

INCK 

370 

INCK 

3B0 

INCK 

390 

INCK 

400 

INCK 

410 

INCK 

420 

INCK 

430 

INCK 

440 

INCK 

450 

INCK 

460 

INCK 

462 

INCK 

465 

INCK 

470 

INCK 

4HO 

INCK  AVU 


LET  TIME  • l>ELTA$(SENS)/VELnCITV(CNV)  ••  DELTAT  NEXT  CHECK  INCK  500 


♦ TIME.V 

I • 

•*  SEE  IF  THIS  IS  THE  LAST  SENSOR  IN  THE  STRING 

I I 

CHECK* 

IF  ISENS  > N. sensor  ANO  OIRECTIONICNV)  - 1)  OR  (SENS  * 1 AND 

D|RECTI0N(CNVI-2) 

on  TO  last  ••  THE  CONVOY  SPEED  MILL  NOT  CHANGE 
ELSE  ••  CHECK  TO  SEE  IF  VELOCITY  WILL  CHANGE  BEFORE  THE  NEXT 

••  incremen-'  check 

IF  TIME. A( INC. INOICNVi)  IS  LT  TIME  •»  VELOCITY  WILL  CHANGE 
LET  PIST  ■ (TIME  - TIME. Al INC. INOICNVI H 

• VELOCdNC.INDCCNVII  + (TIME.  A(  INC.  INOICNVI  I- 
TIME.V)  * VELOCITY(CNVI*-»  PIST  " 1ST  TRUCK 
LET  PLAST  - PIST  - (NBR.OF.TRUCKSICNVI-  II  * SPACE. FACTOR 
» VELOCI INC.INDICNVI I **LAST  TRUCK 

60  TO  CHK 

ELSE 

LAST'LET  PIST  nlTIMB  - TIME. VI  * VELOCITYICNVI  ♦ PIST 
LET  PLAST  ■ PIST  - CNV.LENGTH(CNVI 

• I 

»•  NOW  CHECK  TO  SEE  IF  CONVOY  WILL  HE  IN  SENSOR  SPHERE  OF  INFLUENCE 
•CHK* 

IF  PLAST  IS  GE  BASF.OIST  **  LAST  TRUCK  WILL  HE  OUTSIDE  SENSOR 
LET  TIME.SPL  ••  time  - (PLAST  - BASE.OISTI/VELOCITYICNV) 
WRITE  TIME.SPL. SENS  .R.  OIRECTIONICNVI , NRR.CONVICNVI 
AS  BINARY  USING  DISK 
DESTROY  THE  INCREMENT.CHECK 
RETURN 

ELSE  **  IT  HILL  BE  IN  THE  SENSOR  AREA  OF  INFLUENCE 

• I 

SCHEDULE  THE  INCREMENT .CHECK  AT  TIME 

LET  OIST.TRAVI INCREMENT. CHFCKI  * PIST 
RETURN 

ELSE  * 'SENSOR  IS  UFE 
LET  TIME  ■ ON.TIMEISENSI 
60  TU  CHECK 
ENO 


INCK  505 
INCK  510 
INCK  520 
INCK  530 
INCK  530 
INCK  540 
INCK  550 
INCK  560 
INCK  570 
INCK  5S0 
INCK  590 
INCK  600 
INCK  610 
INCK  620 
INCK  630 
INCK  640 
INCK  650 
INCK  660 
INCK  670 
INCK  6R0 
INCK  690 
INCK  700 
INCK  710 
INCK  720 
INCK  722 
INCK  724 
INCK  726 
INCK  730 
INCK  740 
INCK  750 
INCK  7eO 
INCK  770 
INCK  7B0 
INCK  790 
INCK  flOO 
INCK  RIO 
INCK  R20 
INCK  830 
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«0UHNP  MAR.ngT^CTJONS  r S6MS.  CNV,  WUM.TKIIK  ) • • M.  HEKMAN 

• • 

THIS  «iU»T!NE  PH0C6SS  HAfiNETIC  SE*4SnH  OgTECTIOMS.  THESE  SEMSORS 
ACT  AS  TfllPWIRES  ANtV  DETECT  WITH  PROBAAILlTy  P ( CUEFF C SENSOR » . 


• • 
• I 
I • 


OEFINE  SENS.  CNV 


• • 


AS  INTEC.ER  VARIAHLFS 


IF  (UN.TIMFISEK'SI  tF  YI«E.V|  ••  SENSOR  CAN  TRANSMIT 

AMO  iCOEFFISEMS)  6E  RANnOH.FOn  ••  TRUCK  NItL  PE  DETECTED 
».6T  0N.7IMEISENS)  • TIME.V  ♦ DEAD. TIME  ••  SENSOR  OFF 
LET  noT.F«PR|NT.FUStT|ON($ENSI)  > 

niR.SVNROUOIRECTIONICNV)  ) 

WITE  TIME.V,  SENS,  &,  niRECTIONICNVI,  NHR.CONVICNV I 
AS  BINARY  USING  DISK 
AOO  1 TO  DETECT. TRUCRISENS) 

ELSE  ««N0  DETECTION  IS  maoE 

IF  NUN.TRUK  EO  l.0*»  THIS  IS  THE  LAST  TRUCK  IN  THE  CONVOY. 
LET  TIMER  ■ TIME.V  ♦ RASE! SENS) /VELDCI TYICNV I 

WRITE  TIMER  . SENS,  A,  DIRECT  ION  I CNV I , NHR.CONVICNV) 

AS  binary  using  disk 

DESTROY  THE  INCREMENT, CHECK 

return 

OTHERWISE  ••schedule  the  NEXT  TRUCK  DETECTION 
schedule  the  INCREMENT .check  AT  TIME.V  + 

SPAC 1 NG I CNV ) / VELMC I TY I CNV ) 

LET  DIST.TRAVI INCREMENT.CHECK)  » NUM.TKUK  -I.O  ••NEXT 


END 


return 


12/7/71MAGD 
MAGO 
MAGO 
MAGO 
HAGD 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 
MAGO 


TRUCK  MAGO 

MAGO 


10 

20 

TO 

•.0 

50 

AO 

70 

HO 

90 

100 

UO 

120 

ITO 

140 

14A 

ISO 

160 

17A 

176 

lAO 

190 

200 

210 

220 

230 

240 

250 

260 
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EVENT 

t 


LAKM.OFF  SAVING  THE  EVENT  NOTICE 


»•  H.  HEHNAN  8/5/71 


THIS  EVENT  TtWNS  AH  ALA8H  Of 
NEniUM  OFF  IS  SCHEOULEO  THAT 
KATE  WILL  OKOf  TO  AMHIENT 


THE  HEOIUM  AND  HIGH  LEVELS  OFF:  IF  A 
WILL  RE  THE  NEW  LEVEL  OTHEKWISE  THE 


IF 


LEVEL  IS  ON  7 


lambda  EO  LAHnAI2l 
LET  I - 2 
GO  COLCT 

ELSE 

LET  I ■ 3 

•COLCT*  LET  TOTAL.ON.TIMEI n 

TOTAL. ON. TIME! 1 1 ♦ TIme.V  - ON.ALAKM.T IME( II  ••  COLLECT 
LET  ON.CnUNTERI I ) • ON. COUNTER! 1 1 ♦ I 
IF  EV.SI  I.LARM.OFFI  IS  EMPTY  " NO  OTHER  ALARM  LEVEL  IS 
LET  LAMBDA  • LAMDAd)  ••  RETURN  TO  AMBIENT  LEVEL 


WHICH  ALARM 
LEVEL  2 


LEVEL  3 


ON 


LET  TIME. BETWEEN!  U - T IME .BETWEEN!  I )-►  TIME.V  - 
LET  ON. ALARM. TIME!1)  - TIME.V 
CALL  CANCEL. false. ALARM  ••  RESCHEDULE 

return  • • level 

ELSE  ••SOME  RATE  IS  ON 

IF  OFF.PNTI2I  IS  IN  THE  EV.S  •• 

LET  lambda  « LAMOAI2I 
LET  TIME.H£TWEEN(2)  ■ TIME. BETWEEN! 2 !♦  TIME.V  - 
LET  ON. ALARM. TIME!2)  « TIME.V 
CALL  cancel. false. A*. ARM 
RETURN 

OTHERWISE  "ITS  THE  HIGH  RATE 
LET  LAMBDA  ■ LAMDAI3) 

LET  TIME.BETHEENI3I  ■ TIME. BETWEEN! 3 TIME.V  • 
let  on. alarm. TIM6I31  ■ TIME.V 
CALL  CANCEL. false. ALARM 
RETURN 

END 


ALDF 
ALOF 
ALOF 
ALOF 
ALDF 
ALOF 
ALOF 
ALOF 
ALOF 
ALOF 
ALOF 
ALOF 
STATALOF 
ALDF 
ALOF 
ALOF 


ITS  THE  MEDIUM  RATE 


ON. alarm. TIME! IIALOF 
ALDF 

FALSE  alarm  for  NEW  ALOF 

ALOF 
ALOF 
ALOF 
ALOF 

0N.ALARM.TIMEI2IALDF 
ALOF 
ALOF 
ALOF 
ALOF 
ALOF 

DN.ALARM.TIMEI3IAL0F 
ALOF 
ALOF 
ALOF 
ALOF 


ID 

20 

30 

40 

SO 

AO 

61 

62 

63 

64 

65 

66 
67 
6B 
70 
BO 
83 
86 
90 

100 

110 

120 

130 

132 

136 

160 

150 

160 

170 

172 

176 

IHO 

190 

200 
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Mfn. POINT. P4SS  saving  the  event  notice  ••  M.  KERMAN  «/l2/71 

■ I 

"THIS  event  marks  the  tine  of  passage  of  the  first  and  last  truck 
"OF  the  CfiNvnv  through  the  mio  point  of  the  sensor. 

• • 

DEFINE  CNV«  SENS  AS  INTEGER  VARIABLES 

I • 

let  CNV  « CNV.NUHmERIMIO. POINT. PASS) 

LET  SENS-  SN.NOIMIO. POINT. PASS) 

LET  INOS  - MARKIMin.f'OlNT.PASS) 

I • 

IF  DIRECTinN(CNV)  IS  EOUAL  TO  I " CONVOY  IS  WEST  BOUND 
LET  niJT.FIPRINT.POSITIONISENSH-  2)  » •'-» 

GO  OUT 

ELSE  " ITS  EAST  HOUND 

let  OUT.FIPRINT.POSITIONISENS)  - 2)  ■ 

•OUT*  DESTROY  THE  M I D.POI NT.PASS 

WRITE  TIME.V.  SENS#  4,  OIRECTIONICNV) t D AS  BINARY  USING  DISK 

t • 

"CHECK  TO  SEE  IF  SENSOR  IS  COMPLETED  (IF  BASE  IS  0) 

• I 

IF  BASEISENSI  - 0.0  AND  IND3  - 2.0 
LET  TIME  • TIME.V  ♦ O.OOl  " GIVES  DIMENSIN  TO  1 TRUCK 

WRITE  time  f SENS#  8«  OIRECTIONICNV)#  NBR.f.ONVI  CNV ) AS 

BINARY  USING  DISK 

regardless 

RETURN 

END 


MIDP  10 
MIDP  20 
MIDP  30 
MIDP  40 
MIDP  50 
MIOP  AO 
MIDP  70 
MIDP  80 
MIOP  90 
MIDP  92 
MIOP  100 
MIOP  110 
MIOP  120 
MIOP  130 
MIOP  140 
MIOP  150 
MIOP  lAO 
MIDP  164 
MIOP  165 
MIDP  166 
MIOP  167 
MIOP  168 
MIDP  168 
MIOP  169 
MIDP  16A 
MIOP  168 
MIDP  170 
MIDP  180 


I 

i 

S 
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EVPMT  NFXT.SFNSW  SAVlMG  THE  EVENT  NOTICE  ••  M.  rtEKMAN  R/6V71 

• 

• THIS  EVENT  INDICATE  THAT  A CONVOY  HAS  JUST  ENTE«ED  THE  rtASE  OE  A 

• TOIAMGI.E.  IT  Wli.L  SELECT  THE  VELOCITY  AT  THE  NEXT  SENSOR  AMD 

• SCHEniiLE  THE  N''-XT  SENSOR  EVENT.  IE  THIS  IS  THE  SECOND  SENSOR  FUR 

• either  DIRECTION  IT  WILL  SCHEDIILE  A mcxt  CONVOY.  ADOITIONALLY  IT 
' SCHECIILE  a MID  POINT  PASS  EVENT  FOR  THE  FIRST  AVD  LAST  TRUCK. 


define  cnv,  sens,  mxt.sns,  DIR, sens. posit,  pre.cmv,fla(;i 

AS  integer  variables 

LET  CNV  <•  CNV. NUR  (NEXT. SENSOR  ) •'  CURRENT  CONVOY 

LET  VELCTY  » VELOCINEXT. SENSOR)  ••  CURRENT  VELOCITY 

LET  SENS  ■ NXT.SEMSRINEXT. SENSOR)  " CURRENT  SENSOR 

LET  PRE.CNV  ■ PRIOR. CONVINEXT. SENSOR)  •»  CONVOY  IN  FRONT 

LET  FLAGl  » 1 ••  (0)  INDICATES  END  f STRING 


• I 

• I 


SET  ALL  NEW  ATTRIBUTES  OF  CONVOY 

LET  SPACINGICNV)  ■ SPACE. FACTOR  • VELCTY 

LET  VELOCITYICNV)  * VELCTY 


••  DIST  BETWEEN  TRUCKS 


LET  CNV.LEnGTHICNV ) 
LET  SENSR.NRR(CNV) 

let  dir 

WRITE  TImE.V,  SENS, 


NXSN 

10 

NXSN 

20 

NXSN 

30 

NXSN 

W 

NXSN 

50 

NXSN 

60 

NXSN 

70 

NXSN 

«0 

NXSN 

90 

NXSN 

92 

NXSN 

100 

NXSN 

no 

NXSN 

120 

NXSN 

■130 

NXSN 

135 

NXSN 

140 

NXSN 

150 

NXSN 

160 

NXSN 

170 

NXSN 

180 

I I 
, I 
• I 


SPACINGICNV)  ■i'INBR.DF.TRUCKSICNV)-  1) 

SENS  ••  FIRST  TRUCK  IS  IN  THIS  SENSOR  FIELONXSN  190 

DIRECTIONICNV)  ••  I IS  WEST, 2 IS  EAST  NXSN  200 

, OIR,  NHR.CONVICNV)  AS  BINARY  USING  DISK  NXSN  20A 

NXSN  210 

IE  THIS  SENSOR  IS  THE  LAST  IN  THE  STRING  SCHEDULE  A DESTROY  CONVOYNXSN  220 

NXSN  230 

IE  (OIR  »l  AND  SENS  « N. SENSOR)  OR  (DIR  » 2 AND  SENS  « 1)  NXSN  2A0 

LET  TIME  • (BASEISENS)  ♦ CNV .LENGTHICNV ) ) / VELCTY  NXSN  250 

SCHEOULF  A neSTRUY. CONVOY  AT  TIMg.V  TIME  NXSN  2f>0 

LET  OEST.C''V(OESTROY. CONVOY)  » CNV  NXSN  270 

let  FLAGl  * 0 . NXSN  274 

GO  TO  MID  NXSN  2B0 

ELSE  " IE  THIS  IS  THE  SECOND  SENSOR  FOR  A CONVOY  SCHDULE  THE  NEXTNXSN  290 

"CONVOY.  THIS  PREVENT  MORE  THAN  DNE  CONVOY  IN  NXSN  300 

"AREA  UNDER  SENSOR  FOR  EACH  TRIANGLE  NXSN  310 

IF  ISENS  • 2 ANO  niH  » 1)  OR  I SFNS  ■ N.SENSO>‘.  - 1 AND  OIR  » 2)  NXSN  320 

LFT  TIME  « CNV.LENGTH(CNV)/VELCTY  NXSN  330 

SCHEDULE  A SCHPD. NEXT. CONVOY  AT  TIME.V  ♦ TIME  NXSN  340 

LEI  CNV. DIRECT lONI SCHEO. NEXT, CONVOY  I « DIR  NXSN  350 

LET  PR IER .CONVOY! SCHEO. NEXT, CONVOY ) • CNV  NXSN  360 

regardless  " OBTAIN  VELOCITY  AT  NEXT  SENSOR  AND  CHECK  SPACING  NXSN  370 

let  NXT.SNS  » SENS  ♦ 1 NXSN  3B0 

IF  niR  ■ 2,  let  NXT.SNS  ■ SENS  - I NXSN  ?90 

regardless  NXSN  400 

LET  X - BET.-.J.F(KI(nrR).  K2(0IR(,  3)  NXSN  410 

LET  VEL.NXT  ■ X * (UPPER .BnuI n|R I - LOWER .HNDI 0 1 R ! ) NXSN  420 

♦ LOWER. BNDIDIM ) NXSN  430 

" CHECK  PRIOR  convoy  ro  INSURE  WE  WONT  CATCH  IT.  NXSN  440 

IF  PRE.CNV  IS  NE  0 ••  CONVOY  AHEAD  NXSN  4S0 

LET  J » CNV. LFNCTHIPRE.C'IVI/OIST.BTwn, SENSOR  ♦ . <j  ••tOOIV.  NXSN  460 
IF  DIR  ■ 2 "SENSORS  NXSN  47o 

let  J » - J NXSN  4B0 

regardless  " GET  MAX  sensor  NOmHER  OF  LAST  THOCK  IN  CONVOY  NXSN  490 

LET  SENS.POSn  » SENSR.NHRIPRE.CNV)  - J NXSN  500 

IE  (0|R«1  AM|I  SENS. POSIT  <•  NXT.SNS)  OR  tl'I««  2 AND  NXSN  5l<1 

sens. POSIT  >»  NXT.SNS)  " there  ‘AY  A TRUCK  OP  NXSN  5)2 
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TH6N  IP  VPL.NXT  IS  GT  V61.0C!  TV(  PRP.CNV  J "GOING  TOO  PAST 

LET  VEL.NXT  » VELOCITY!  PKP.CNV  I "SET  SPEEDS  60I.IAL 
(IThE«!WISE  " NO  TMOCK  INMEOIATELY  AHEAD 
ELSE  " NO  CONVOY  IN  THE  STRING  GOING  THE  SAME  DIRECTION 

1 1 t 

" SET  THp  TIME  OP  THE  NEXT .SENSOR .EVENT 
1 1 

let  time  ••  (OIST.PTWN. SENSOR  - BASE  ( NXT.  SNS  I /2 .0 

/VELCTY 

SCHEOOLE  the  next. SENSOR  CALL50  INC.INDICNV)  AT 
LET  NXT. SENSH INEXT., SENSOR)  » NXT. SNS 
LET  VELOC(NEXT. SENSOR)  » VEL.NXT 


NXSN 
NXSN 
NXSN 
NXSN 
NXSN 
NXSN 
NXSN 

+ BASE(SENS)/2.0)NXSN 
NXSN 

TIME.V  + TIME  NXSN 
NXSN 
NXSN 

" NXSN 

" SChEOULE  the  time  the  PIRST  and  last  truck  of  THE  CONVOY  WILL  PASS  NXSN 
" THE  CENTER  OE  fHE  SENSOR  NXSN 

•Mini  NXSN 

LET  TIME  -RASE(SENS)/(2.0  * VELCTY)  " TIME  FIRST  TRUCK  CROSSES  NXSN 

SCHEOULE  A MID. POINT. PASS  AT  TIME.V-+  TIME  NXSN 

LET  CNV.Nomhcr (MID. POINT. PASS)  » CNV  NXSN 

let  SN.Nn(Min, POINT. PASS)  « SENS  NXSN 

LET  MARKIMIO. POINT. PASS)  « 1.0  NXSN 

IE  ELAGl  « 0 "NO  MORE  SENSORS  NXSN 

GO  TIM  NXSN 

ELSE  NXSN 

IE  OIST.BTWN. SENSOR  - RASE(NX1 .SNS)/2.0  GT  CNV.  LENGTH  I CNV )"  SPEED  NXSN 
•TIM<  let  time  ■ CNV.LENGTH(CNV)/V£LCTY  + TIME  "WONT  CHANGE  NXSN 


GO  SCHD 

else  " THERE  WILL  «€  A SPEfio  CHANGE 

let  time  -!01ST.BTWM. SENSOR  - BASE ( NXT . SNS ) /2. 0 )/ VELCTY  + 

(CNV.LENGTH(CNV)  - OIST.BT-N. SENSOR  f BASE ( NXT . SNS ) /2 . 0 ) 
/VEL.NXT  + TIME 

•SCHD' SCHEOULE  A Mio.pni VT.PASS  AT  TIME.V  ♦ TIME 
LET  CNV. NUMPCRIMin. POINT. PASS)  • CNV 
LET  SN.NOIMID. POINT. PASS)  » SENS 
LET  MARKIMID. POINT. PASS)  « 2.0 
IF  BASE(SENS)  IS  EOUAL  TO  0.0 

return 

ELSE 

SCHEDULE  AN  I NCREmeNT .CHECK  AT  TIME.V 
LET  SENS. NHR! INCREMENT. CHECK)  » 

LET  CNVY.NBR! INCREMENT. CHECK)  = 

LET  GIST. TRAV! INCREMENT. CHECK)  » 


NXSN 
NXSN 
NXSN 
NXSN 
NXSN 
NXSN 
NXSN 
NXSN 
NXSN 

" THE  SENSOR  CANNOT  RECORD  THUCKSNXSN 

NXSN 

NXSN 

♦ DEITAS(S:nS)/(2.  * VELCTY)NXSN 


RETURN 

END 


SENS  NXSN 

CNV  NXSN 

DELTAS(SENS)/2  0 NXSN 

IE  MAG. sens  NE  0 " THE  SENSOR  IS  MAGNETIC  NXSN 

LET  niST. TRAV! increment. CHECK)  » NRR . OF . TRUCKS  I CNV  ) NXSN 
OTHERWISE  NXSN 

NXSN 

NXSN 


520 
5 3i) 
5A0 
550 
560 
570 
5B0 
590 
600 
610 
620 
630 
660 
650 
660 
670 
6«0 
690 
700 
705 

705 

706 

707 
70H 
710 
720 
730 
760 
750 
760 
770 
7H0 
790 
792 
796 
BOO 
BIO 
»20 
830 
860 
850 
860 
866 
866 
868 
870 
880 
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FV6NT  PRMT.MflP  SAVING  THE  EVENT  NOTICE  ••  M.  BERMAN  fi/12/71 

• ( 

"THIS  EVENT  PRINTS  ANY  FALSE  ALARM  OR  DETECTION  THAT  HAS  OCCURRED 
•»IN  THE  interval  dead. time  ON  ANY  SENSOR 

I i 

LET  The  * TIM6.V  + DEAD. TIME 

WRITE  TME  as  /,  0 S 1.  "I'S  B 120,  "i" 

SCHEDULE  THE  PRNT.MAP  AT  TME 

return 

END 


PKNTM 

10 

PRNTM 

20 

PRNTM 

30 

r^RNTM 

PRNTM 

50 

PRNTm 

52 

PRNTM 

60 

PRNTM 

70 

PRNTM 

HO 

PRNTM 

90 

I 

I 


I 


! 


i 
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PVFNT  SCHgO.NFXT.CDNVIlY  SAVI^'f;  THt  eVFNT  NDTIC6''  M.  REt<MA*l  fl/10/71 

I • 

••  This  EVFmt  CnEATFS  AMO  SCHEDULES  A CONVnv  TO  PASS  TH.«)tIGH  THE 
••  SENStift  FIELD.  THE  VELOCITY  FOX  THE  FIRST  SENSOR  IS  SFLECTEt)  AND 
••  A NEXT  SENSOR  EVENT  IS  SCHEDOLED  FOR  THE  FIRST  SENSOR 

I I 

OEFINE  niR.PRE.CNV,  CNV,  SENS.TRUKl  AS  INTEGER  VARIABLES 
CREATE  A CONVOY  CALLED  CNV 

ADO  1 TO  MH.OE.CNV  "COUNTS  CONVOYS  GENERATED 
IF  NP.OF.CNV  GT  MAX.NHR.CONVS 
GO  TO  FIN 
ELSE 

LET  OIR  « CNV. DIRECT IOM( SCHED. NEXT. CONVOY ) 

LET  PRE.CNV  « PRIER.CCNVnviSCHED. NEXT. CONVOY) 

•'  SELECT  A NIINHER  OF  TRUCKS  FOR  THE  CONVOY 

LET  NBR.DF.TRUCKSICNV)  « TRUCKS 

Aim  1 TO  CONVY.SIZEIOIR,  NAR.OF.TRUCKSICNV) ) " Cn.CT  STATISTIC 
LEV  DIRECTIQN(CNV)  * OIR 

ADD  1 TO  CNV.CNTR ( DIR ) " ASSIGN  A CONSECUTIVE  NBR.  TO  CONVOY 
LET  NBR.CONV(CNV)  * CNV .CNTR ( DIR ) 

I I 

••  OBTAIN  ThP  time  at  THE  FIRST  SENSOR  (NOMINAL  BASE) 

• . 

LET  TIME  « exponential. EICNV.RATEIDIR),  3) 

IF  CONST. CNV  * I " USER  ASKED  FOR  CONSTANT  COMVY  RATE 

let  time  » CNV.RATEIDIR ) 

ELSE 

• I 

" OBTAIN  THE  VELOCITY  THRU  THE  FIRST  SENSOR 

• • 

let  X »ErTAJ.F (K1 ( DIR ) .K2 (DIR ) , 3) 

LET  V6L  » X ■>  (UPPER. RNO(OIR)  - LOWER. HND(  OIR  ) ) + LOWER . BND  ( D I R ) 
" CHECK  TO  BE  SURE  WE  MAINTAIN  AT  LEAST  ONE  SENSOR  BETWEEN  CONVOYS 

• i 

IE  TIME  * LOWER. BND(niR ; IS  LT  01  ST, BTWN. SENSOR 

IF  TIME. A( INC. INDIPRE.CNvn  IS  LI  TIME.V  + TIME 
IF  VEL  IS  GT  VELOCIINC. 1ND( PRE.CNV n 

LET  VEL  * VELOCIINC.INDIPHE.CNV)  ) 

GO  OUT 

ELSE 

GO  OUT 

nTHERWiSe  " CURRFNT  VELOCITY  QF  JHE  CONVOY  WILL  HOLD 
IE  VEL  IS  GT  VELOCITY'PRE.CNV) 

LtT  VEL  - VELCCITYIPRE.CNV) 

ELSE 

REGARDL'S'; 

•OUT  • 

" time  I -ST  SENSDP 

? i 

LET  FIRST, RASE  • BASEti.  IE  DT'  ?,  Lt < FIRST. BASE  ■ 

RASEIN. SENSOR) 

regardless 

LET  TIME  ■ time  + (NnsilNAL.HASE  - F SR  ST . BASE  ) / ( 2.0  ■*  VEL  ) 

IF  TIME.V  ♦ TIME  r,T  MAX.  TIME 
SUBTRACT  1 from  MK.uE.CnV 

SUBTRACT  I FROM  CONVV. S I ZE ( O I H » NBR . UE . TRUCKS ( CNV ) ) 


SNCN 

10 

SNCN 

20 

SNCN 

30 

SNCN 

40 

SNCN 

50 

SNCN 

40 

SNCN 

70 

SNCN 

BO 

SNCN 

90 

SNCN 

92 

SNCN 

94 

SNCN 

94 

SNCN 

100 

SNCN 

llO 

SNCN 

120 

SNCN 

130 

SnCN 

134 

SNCN 

140 

SNCN 

142 

SNCN 

144 

SNCN 

150 

SNCN 

160 

SNCN 

170 

SNCN 

180 

SNCN 

1B2 

SNCN 

1B4 

SNCN 

1H4 

SNCN 

190 

SNCN 

200 

SNCN 

210 

SNCN 

220 

SNCM 

230 

SNCN 

270 

SNCN 

2H0 

SNCN 

290 

SNCN 

291 

SNCN  293 
SNCN  294 
SNCN  29A 
SNCN  2R7 
SNCN  298 
SNCN  299 
SNCN  300 
SNCn  310 
SNCN  31^ 
SNCN  320 
SNCN  321 
SNCN  322 
SNCN  323 
SNCN  330 
SNCN  340 
SNCN  3S0 
SNCN  34(1 
SNCN  344 
SNCN  34*' 
SNCN  344 


I 

i 

I 

f 
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SI)f»T«ACT  1 FROM  r.NV.C»ITMI)IR ) 
r,0  TU  FIM 
FISF 

SCMFmiLe  A MFXT.SFNSOR  CAtLEO  lNC.IMn(CNV>  AT 
let  sens  - 1 !F  OIR  - 2,  let  SENS  » N. SENSOR 
LET  NXT.SENSR ( INC  rNO(CNV)J  ■ SENS 
LET  CNV.NRR  (INC. iNOiCNV) ) ■ CNV 
LET  VELOC  (INC.lwrMCNVn  ■ VEL 
LET  PRIOR. CONV( INC. IMn(CNV) ) ■ PRE.CNV 
LET  HACK.POINTUNC.INfMPHE.CNVn  • CNV 


UMF.V  ♦ TIME 
REGARnLESS 


UPDATE  THE  BACK 
••  POINTER  FOR  PRIOR 

LET  TROKl  ■ NBR.OF.TRUCKS(CNV)  •'  PERMITS  PRINT  TRUCKS 
WRITE  TIME.V+TIME,  TRUKl  » 1,  D IR .CNV.CNTR ( DI R ) AS  BINARY 
USING  DISK 

•FINiOESTROV  THE  SCHED.NFXT .CONyOY 
RETURN 
ENO 


SNCN 

SNCN 

SNCN 

SNCN 

SNCN 

SNCN 

SNCN 

SNCN 

SNCN 

SNCN 

SNCN 

SNCN 

SNCN 

SNCN 

SNCN 

SNCN 

SNCN 


3s*> 
3A6 
3#>fl 
370 
3H0 
3V0 
A no 

AlO 

A20 

A25 

A26 

A26 

A27 

A27 

A2R 

A30 

AAO 
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Appendix  D1 


XAPB  FOttfAX  FOB  TBS  FATTBRN  DmCTION 


If  infoxnetlon  from  ecCuel  oexuior  deta  1«  to  bo  Input  to  the  do"> 
toction  olgorlcbn,  tho  follovlag  fomot  oust  bo  uood: 

Each  logical  record  roproeonto  an  activation  and  wuat  bo  five 
wordo  long  oortod  in  aocondlng  order  on  word  1. 

Word  1 — time  of  activation  (doclaol). 

Word  2 — sencor  number  of  activation  (Integer). 

Word  3 — the  Integer  3. 

Word  4 — the  integer  0. 

Word  5— 'the  tntager  0. 

The  last  three  records  of  the  file  are  special; 

Record  N-2  (same  format) 

Sensor  1 — time  of  activation  * time  of  last  actual  activation  + 5. 
Record  N-1  (sane  format) 

Sensor  1 — time  of  activation  - time  of  last  actual  activation  4-  10. 

Record  N (same  format) 

Word  3 — *46  integer  9. 

All  other  words,  the  value  0. 
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ApiNndlx  D2 

THE  OPiyPT  riXK  FOiMAr  caKAJgP  gf  THE  SlWJIATItJW  MOPKL 


Each  l<^ical  record  la  five  worda  long  and  ia  aortad  on  tha  flla 
In  aacandtng  order  on  word  1. 

Word  1 — tlee  (daclael). 

Word  2 — aanaor  nuaiber  if  an  activation,  or  nuid>er  of  trucka  In 

tha  convoy  If  convoy  haa  Juat  entered  the  atrlng  (Integer). 
Hbrd  3— type  record  code  (integer): 

1—  convoy  atarta  through  the  aanaor  field. 

2—  convoy  leavea  the  aanaor  field. 

3 —  falee-alam  cctivatlon. 

4 —  firat  vehicle  of  convoy  paaaea  the  eldpolnt  of  the  aanaor. 

5 —  laat  vehicle  of  convoy  paaaea  the  eldpolnt  of  the  aanaor. 

6— >-vehlcle  activation. 

7—  firat  vahlcle  of  a convoy  atartw  through  a aanaor. 

8 —  laat  vehicle  of  a convoy  leavea  a aanaor. 

9 —  indlcatea  laat  record  of  the  file. 

Word  4— convoy  direction  (Integer  1 or  2). 

Word  5— convoy  nuaber.  Bach  convoy  la  nuabered  conaacutively 
(1  to  N)  for  aaoh  direction  aeparately  (Integer). 

The  laat  three  recorda  are  ahovn  in  Appendix  Dl. 
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AppMkdlx  I 

IHFUI  MTA  MtCK  TOK  THB  PAXTEBM  PBTECnOii  ALQOEITHM 


Th«  following  1«  • fully  sotup  dock  to  run  the  pattern  detection 
algorithn  on  the  Rend  IBM  360/65  conputer  inatelletion.  Tape  nuii>er 
002325  in  thia  caae  contains  the  output  activations  of  the  sinulation 
aodel,  but  it  could  contain  actual  activation  data.  (The  fomat  is 
deacrlbed  in  Appendix  01  for  actual  data*  and  in  Appendix  02  for  slni- 
ulation  or  experlnental  data.) 


//C4300«0f  JOB  (5772, 300, 120), 'AMTHONV  P.  CI6«iVn* ,CL*SS»A 
//PAL120  ExeC  SFORTr,,NAME»LnfiICX,tIRl-*BA562.tIH2*  ,Re0l0N-196K 
//GO.FTOtFOOl  on  SYSni)T«V,SPACF-(TRK,(950,l  ),RLSe  ), 

//  nCB«<RECFM«PHA,tR6C(.»n3,HI.KSIZF»l330) 

//GO.FTORFOOl  00  ON) T«TAPF ,0SM«R45A2, VOL«SER«002325 , 

//  0CG«(RFCFM»VB,BLKSIZE-2404,LReCL»24), 

//  OISP«Ot.n,L4HEL»(  . IN) 

//Gn.SYSiN  na  * 

THIS  IS  AN  EXAMPLE  OF  THE  PATTEBN  DETECT.  ALGOR.  USING  SIMULATED 
1 24.0  35.0  15.0  24.0  35.0  15.0  0.40 

0.5  1000.0  .67  533 


0 1.0 

2 250.0  250.0  250.0  250.0 

/• 


DATA 

5 


2/12/72 
0.05 
60.0  1 


/■/ 


O O f O «J  O «J  O O O O O O ij  O O O W «J  O O «J  v;  O O O O V)  O «J  O *J  O o u o o o o o o o o c>  u o 
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App*xullx  P 


main  AllUTJNh  - LOfilC  «f)X  M,  BERMAN  9 SEPT  71  MAIN 

MAIN 

TMIS  RUHTINE  REAOS  ALU  NECESSARY  INPUT  INFORMATION,  DIMENSIONS  MAIN 
all  arrays  and  zeros  THr»SE  ARRAYS.  SOME  PRELIMINARY  CAUCULttriOMS  ARE  MAIN 


M.  BERMAN  9 SEPT  71 


MADE. 


AVRVELIK) 


BWWNDIKI 


CSFNS 

otsTin 

IRII.K) 


I DROP  (I.) 


IKTRAJ(K) 
INACTV( ! I 


imtino 


JSRIIl  - temp  storage  for  rnking  sensor  no.  on  time  main 

MAIN 

RAGRAF  - USER  GRAPH  PLOTTING  CONTROL,  0 - NO  PLOT.  I - GRAPH  MAIN 

MAIN 

LASTSN(K)  - THE  sensor  no.  of  THE  LAST  SENSOR  IN  THE  STRING  FOR  MAIN 

DIRECTION  K.  MAIN 

MAIN 

MS6NS  - THE  MINIMUM  NUMBER  OF  ADMISSIBLE  STRIPS  FOR  A TRAJ.  MAIN 

CONFIRMATION  MAIN 

MAIN 

NAin  - COUNTS  The  hhr.  of  aomissable  strip:  of  sensor  i each  main 

period 

MAIN 

NASTClL.K.n  - aomissable  STRIP  FOR  TRAJECTOR  NO.  L.  OIRcC.  K ON  MAIN 

sensor  37  \ - YES,  0 - NO  MAIN 

MAIN 

NAVLinn.J.K)  - INDICATOR  WHICH  SHOWS  WHETHER  OR  NOT  VALID  STRIP  WAS  MAIN 

ADM  I SS  able  iN  window  of  CELL  J . CN  SEnS'>R  I FDR  MAIN 

oirection  k.  main 

MAIN 

NB  - TMf:  NO.  OF  TRAJECTORIES  TO  BE  CONFIRMED  BEFORE  MAIN 

*■.  OPOATING  WEIGHTS.  MAIN 

MAIN 

C OCARim  - THE  DEVICE  NO.  OF  TMF  CARO  READER  MAIN 

Mt  I f. 


RAGRAF 


LASTSN(K) 


MSENS 


main 

***  OEFINITIONS  •*"»  MAIN 

MAIN 

- AVG.  velocity  between  SENSORS  FOR  DIRECTION  K.  (KM/HR)KA1N 

a - W6STROUNO.  2 --  EASTBOOND)  MAIN 

MAIN 

- MAX  TIME  BETWEEN  DETECTIONS  IN  A VALID  STRIP.  IMIN.I  MAIN 

MAIN 

- MAX,  VELOCITY  FOR  DIRECTION  K.  MAIN 

MAIN 

- WEIGHT  BELOW  WHICH  A SENSOR  IS  CONSIOEKED  HYPO-aCTIVE  MAIN 

MAIN 

- distance  (M.)  between  SENSOR  I AND  I - I MAIN 

MAIN 

- POINTS  TO  THE  NEXT  AVAILABLE  STORAGE  CELL  FOR  SENSOR  MAIN 

I,  direction  k main 

MAIN 

- MARKS  A SENSOR  I WHEN  DROPPED  FROM  THE  STRING  MAIN 

( 0 « NOT  DROPPED,  I - DROPPED)  MAIN 

MAIN 

- COUNTS  the  N8R.  OE  TRAJECTORIES  STARTED,  DIRECTION  K MAIN 

MAIN 

- THE  NUMBER  OF  CONSECUTIVE  PERIODS  SENSOR  1 HAS  BEEN  BAIN 

HYPO-ACTIVE  MAJN 

MAIN 

- COMPUTE  WTS.  INDICATOR.  IF  NOT  0 NONE  WILL  BE  CDMPUTD  MAIN 

MAIN 

- TEMP  STORAGE  FOR  RNKING  SENSOR  NO.  ON  TIME  MAIN 


- USER  GRAPH  plotting  CONTROL,  0 - NO  PLOT.  I - GRAPH 

- THE  SENSOR  NO.  OF  THE  LAST  SENSOR  IN  THE  STRING  FOR 
DIRECTION  K. 

- THE  MINIMUM  number  OF  ADMISSIBLE  STRIPS  FOR  A TRAJ. 
CONFIRMATION 


NAU) 


NASTCIL.K, I ) 


7 


THE  DEVICE  NO.  OF  TMF  CARO  READER 
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no 

NOffTECm 

NT>i&K 
Nr)MST«(L  ) 
NFNO 

NnPENT(I«K) 

NSENsa 

NSNS 

NP«NT 

NRT«Ajn  ,J,K) 

NTJST«(L  ) 

NTRAJC 

NV<  I I 

PCTSEN 

RID 

SEGLNT 

TIwEIN' I } 


T tf  -UMrM  I ) 

TMEFSTM  J 

Tt-EtSTU  ) 

THFSR  « ! > 

TSRAR  U tK  » 

TVFL!  1 .k  ~i| 
C 
C 

r.  in>MNDi  k 
c 

C w(  I I 


- MO. OF  CONSFC'ITIve  T|f*f  PEKIOOS  hEFORE  HYPO-ACTIVF 
SENSOR  IS  OROPPEO  FROM  THE  STRINK 

- COUNTS  the  no.  of  OETFCTIONS  ON  SENSOR  I THAT  ARE 
SEPERATEO  by  less  than  beta 

- THE  DEVICE  NO.  OF  THE  INPUT  DATA  DEVICE 

- stores  the  DIRECTION  OF  THE  L-V  CONFIRMED  TRAJ 

- THE  NO.  OF  CELLS  AVAILABLE  IN  THE  WINDOW  ARRAYS 


MAIN  510 
MAIN  520 
MAIN  530 
MAIN  540 
MAIN  550 
MAIN  560 
MAIN  570 
MAIN  5X0 
MAIN  5N0 
MAIN  600 
MAIN  610 
MAIN  620 

- STORES  the  cell  no.  OF  THE  FIRST  OPEN  WINDOW  OF  SENSORmAIN  630 

MAIN  640 
MAIN  650 
MAIN  660 
MAIN  670 
MAIN  6R0 
MAIN  6V0 
MAIN  700 

MAIN  710 

~ THE  TRAJECTORY  NO.  OF  THE  WINOOW  IN  THE  J-TH  CELL  ON  MAIN  720 
SENSOR  If  direction  K MAIN  730 

MAIN  740 
MAIN  750 
MAIN  760 
MAIN  770 
MAIN  7B0 
MAIN  7V0 
MAIN  794 
MAIN  795 
MAIN  HOO 
MAIN  mo 
MAIN  H20 
MAIN  R30 
MAIN  H40 

- STORED  FINISH  TIME  OF  A VALID  STRIP  DM  SENSOR  1.  MAIN  H42 

STORED  ONLY  FOR  THOSE  SENSORS  WHICH  A«E  MSFNS  OF  THE  MAIN  H43 
STRINC  FND.  (NOTE  : ONLY  ONE  VALID  STIP  PER  SENSOR  IS  MAIN  H44 

MAIN  H46 
MAIN  F47 
MAIN  R4H 
MAIN  H49 
MAIN  M5(l 

main  N60 

MAIN  P70 
MAIN  H72 
MAIN  R73 
MAIN  R74 
MAIN  HHO 
MAIN  HH 1 

- TIME  TO  TRAVERSE  DIST(I),  DIRECTION  K.FOR  MIN  VFLOCITVMAIN  hh^ 

(M  ■ 1»  OR  MAX.  VELOCITY  iM  • 2)  MAIN  HM4 

MAIN  H9f) 

- MIN.  VtLOClTY  FOR  DIRFCTION  K.  MAIN  900 

MAIN  910 

- THE  WEIGHT  AN  AOMISSAPI.E  STRIP  <)N  SFNSfiR  ! IS  MAH  9/0 


I HUH  direction  K. 

- INITAL  NO.  OF  SENSORS  IN  THE  STRING 

- THE  MAXIMUM  NUMBER  OF  SENSOR  THE  LOGIC  BOX  CAN  HOLD 

- THE  DEVICE  NO  OF  THE  LINE  PRINTER 


- STORkS  THf:  TRAJ.  NO.  OF  THE  L-TH  CI  NFIRMEO  TRAJ. 

- COUNTS  THE  NO.  OF  CONFIRMED  TRAJECTORIES 

- COUNTS  VALIO  STRIPS  ON  SENSOR  I EACH  PERIOD 

- THE  PERCENT  UF  ACTIVE  SENSORS  REO'O  TO  CONFIRM 
“ COEFF.  FOR  SENSOR  I EACH  PERIOD 

- HOAD  SEGMENT  LE  ^CTH.  (M.| 


SAVED.  A SUHSEOt.'jNT  STRIP  WILL  OVERLAY) 

- STORED  BFGIN  TIME.  (COMPLEMENT  TO  TIMFIN(D) 

time  of  first  impulse  in  a strip  on  sensor  1. 

- TIME  OF  LAST  IMPULSE  IN  A STRIP  UN  SENSOR  I 

- TEMP  STORAGE  FOR  RANRINK  LAST  DtTEC  TME  FOR  SENOR  I 

- AVG,  TIME  TO  TRAVERSE  DIST(I)  FOR  DIRECTION  K. 


Wl>«IMF(  I *N) 
HC*P 

WCNT 

WLMTMd.J.K) 
Wi)PTH(  NJ.Kl 


CimTqinutlNR  to  a CONflHMATlQN  EACH  PEAIOU 
- THE  SMOnTHEO  WEIGT  OP  SENSOR  I OIJRING  PERIOD  N, 

• THE  SOM  OF  W(t)  MOST  BE  GREATER  THAN  THIS  FOR  A TRAJ 

confirmation 

- MINIMUM  NR  OF  DETECTIONS  TO  FORM  A VALID  STRIP 

- WINDOW  OPEN  TIME  OF  WINDOW  IN  CELL  J ON  SENSOR  I FOR 
DIRECTION  K. 

- WINDOW  CLOSE  TIME  OF  WINDOW  IN  CELL  J ON  SENSOR  I FOR 
DIRECTION  K 


***  THE  following  are  used  ONLY  WHEN  SIMULATING  ♦+■*• 


REr,TMEd*K) 

* 

THE  TI 
OF  THE 

FINTMEd,K) 

- 

THE  Til 
SENSOR 

NFALSE 

- 

COUNTS 

NRCGEN(N) 

- 

THE  NO 

NRCNOT(N) 

- 

THE  VO 

NRTR0K(I,K) 

- 

THE  NO 

NSI23 

— 

THE  NO. 

****  SEE  ROUTINE  GRAPHG  FOR  VARIABLE  DEFINITIONS  OF  GRAPHS. 


COMMON/GRARHS/  OISTR 
KAGRAF.  KEAST 
MOIMT  , MDIMA  . 
MWESTR.  NOW  I NO, 


, GRMIN  , GRPMAX.  GRPMIN.  IDIMl 
, KEASTRt  KFALSEt  KTKKS  t KWEST 
MEAST  , ME4STR.  MFALSE.  MTRKS 
NWOI'IT,  KEASTl,  MEASTl.  KWESTl 


I I ^UUI « 


RI-iM.:kX(  ZOO)  t 
OIRPWXI  29), 
EASTUXtlSO). 
WESTLXI ISO), 


AFALSYI200) , 
OIRPWYI  25), 
EASTUYdSO), 
WESTLVI 150) , 


DIRPEX)  25) 
EASTLXCISO) 
POINTX<200) 
WESTUXI ISO) 


,TL«50),TAFLSXd(iO), 
TORPWXI  15), 
TE5TUXI  75), 
TWSTLXI  75). 


TAFLSYI 100), 
TDRPWVI  15), 
TESTUVI  75), 
TWSTLYI  75), 


TDRPEXI  15), 
TC-STLXt  75), 
TPUNTXdOO)  , 
TWSTUX)  75), 


COMMDN/XTRA/  TIMIIN0(50),  TIMFIN(50),  WPRIMEdS,  150) , 
, NAdOO)  ,JVALHNdOO),  JASTMN(IOO) 
dimension  AVGVELI2)  ,C0MENT(20)  ,DISTd5) 

IKTRAJI2)  ,INACTVU5)  ,LASTSN«2) 

NAVLIDI  15, 10,2),  NASTC(  <*0,2,19  ),N0RSTR(  20) 
NnPENTd5,2)  ,NRTRAJd5,lO,2),NTJSTR(20) 


RdS)  ,TMFFSTd5) 

UPWN0I2)  ,W(15,150) 

WMPTMU5,in,2),  IHI15,2), 
TveLd«,2.2) 


, I0IH2  , 

, KWESTR  , 
MweST  , 
MWESTl, 

, niKPEVC  29)i 
, EASTLYdSO), 
, POINTY(2O0), 
, HESTUYI150) 
TDHPEYC  15), 
TESTLY)  75), 
TPONTYdOO). 
TWSTUVC  75) 
PCTSEN,  RHO 

, lOROPI 15 ), 
,BWWN0(2)  , 
,NOETFCdS), 
,NVd5)  , 
,TSHARI 16,2), 


,TMELST(15) 

,WLWTMd5,lO,2), 

IEHRU6),  JSRd5),TWt>SRd5), 


MAIN  V30 
MAIN  934 
MAIN  936 
MAIN  940 
MAIN  950 
NAIN  960 
MAIN  970 
MAIN  900 
MAIN  990 
NAINinOO 
MAINIOlO 
MAIN1020 
MAINI030 
MAiNl04U 
MAIN 1050 
HAIN1060 
MAIN1070 
MAINIOHO 
MAIN 1090 
MAINIIOO 
HAlNlllO 
MAIN1120 
MAIN1130 
MAINU40 
MAIN1150 
MAIN1160 
MAINU70 
MAINllRO 
MAINU90 
MAIN1200 
MAIN1210 
MAIN1220 
MAIN1230 
MAIN1232 
MAIN1234 


MAIN1240 
MAIN1250 
MA1N12<,{) 
MAIN127I) 
HAINI2H0 
MAIN129') 
MA INI  300 
MAIN1304 


c 

ThP  FOLLOWINfi  AK^ftYS  A«6  ONLY  pnk  CONVOY  STATISTICS  AND  AK6  NOT 
C««««  NFCFSSAHY  FOR  OPFRATION  OF  TH6  LOGIC  WfiX 
C 

OIM6NSIOM  BEGTMe(50,2)  ,FINTM6(50,2»  ♦NRCGeN(20).  NkCMOT 1 20 ) , 

I NRTRUK!50,2>  ,LSTCNV(2) 

C 

C CONSTANTS 
C 

miMi  « 200 
ID1M2  ■ ISO 

M01M3  • 100 
MO IMA  ■ 7S 
NCAROR  ■ S 
NOISK  - fl 
MPRNT  ■ 6 
NFNO  • 10 
NSIZ3  • SO 
NSNS  « 15 
NWARAY  ■ ISO 
NATJC  > 40 
NRRTRK  • 20 
C 

C*«««  ZERO  ERROR  ARRAY 
C 

on  25  1 * 1,  16 

25  lERRI  I)  « 0 

C 

C«*««  READ  THE  COMMENT  CARO  - THEN  PRINT  THE  COMMENT  LINE 
C 

REAP(NCAHt)R,l  J (COMENTII),  I « !♦  20) 

WRITE(NPRNTt2)  (COMENTm,  I = 1,  20) 

C 

C***»  REAO  ALL  INPUT  CONTROL  PARAMETERS  ANO  PRINT  THEM 
C 

HEA0(NCAR0R,3) 10.  UYGVELII).  BWWNOII).  OPHNOII),  I - 1,2),  BETA, 

1 CSENS,  WC4P,  SEGLNT.PCTSEN,  NB,  NO,  IWCNT,  NSENSK 

2 , GRMlN  , KAGRAF,  NOWINO  , RHO 
IP  (in  „N6.  1 ) lERH ( 1 ) • 5 

IE  (AVGVEi.m  .LE.  0.0)  IFRR12)  * 10 

IF  IAVGVELI2)  .LF.  0.0)  IERRI3)  - 15 

IF  (BWWNOII)  .l6.  0.0)  1ERRI4)  ■ 20 

IF  (BWWNDiai  .LE.  0.01  IERRI5)  « 25 

IF  (UPWNnil)  .LE.  n.OI  1ERR(6)  - 30 

IF  IUPWN0(2)  .LE.  0.0)  IERRI7)  « 35 

IF  JBETA  ,LF.  0.0)  IFRR(B)  - 40 

IF  (CSENS  .LE.  0.0)  lERRIY)  » 45 
IF  (WCAP  .LE.  0.0)  lERRIlO)  « 50 
IF  ISEGLNT  .LE.  0.0)  lERK(ll)  ■ 55 
MSENS  •>  PCTSfN  * NSENSR 
IF  (MSFNS  ,LT.  ? ) lEHRIlZ)  « 60 
IF  INK  .LE.  0)  IFORIIB)  ■ 66 
IF  INO  ,LE.  0)  IFhR(14)  ■ 70 
IF  IIWCNT  .LE.  0)  1ERRI15I  » 75 
IF  (NSENSR  .GT.  NSNS)  IERRU5)  « 72 
WRITE<NPRNT,4)  (AVGVFLIl),  HHWNlUl),  l»PWNn(I),  I « 1,2),  NSENSR, 

1 SEGLNT  .PCTSEN,  IWCNT,  MFTA,  NH,  CSENS,  NO,  WCAP 


MAK-llBlO 

MAIN1320 

MAIN133C 

MAIN1340 

MAIN1350 

MAIN 1360 

MAIN1370 

MAIN13B0 

MA INI  390 

MAIN1394 

HAIN1396 

MAIN1397 

MAIN1398 

MA1N1400 

MAIN1410 

MA1N1420 

MA1N1430 

MAIN  1440 

MAIN1450 

MA1N1451 

MAIM452 

MA1N1453 

MAIN1454 

E.AIN1455 

MAIN1456 

MAIN1457 

MA1N145R 

MAIN1460 

MA1N1470 

MAIN14B0 

MAIN1490 

MAIN1500 

MAIN1510 

MAIN1520 

MAIN1530 

MAIN1540 

MAIN1550 

MA1N1552 

MA1N1560 

MAIN1570 

MA1N15B0 

MA1N1590 

MAIN1600 

MAIN161C 

MAIN1620 

MAIN1630 

MAIN1640 

MAIN1650 

MA,lNlh60 

MAIN1664 

MAIN1670 

MAIN16H0 

MAIN16N0 

MAIN  1700 

MAIN  1704 

MAIN1710 

MAIN1720 


75 


R«KtlNt  MOWINO 


c 


wmTt«NP«NT,  10)  KAWAP 
W«lTe«NpnNT,  11)  PHO 
READ  niSTANCE  H6TWEEN  SENSO«S  f.  PRINT 


0.0 

in,  (DISTd), 


1 • 2*  NSENSR) 


20 


80 


SET  GRAPH  PARAMETERS 


C 

c*«*« 

c 

c 


OIST(l) 

REAniNCAROR ,S) 

WRITEINPRNT.A ) 

TOT  > 0.0 

00  20  1*1,  NSENSR 

TOT  • TOT  + OISTU ) 

WRITEINPRNT,  7)  I,  OISTm 

IFITOT  .NE.  SEGLNT)  lERR(lA) 

KEAST  ■ 0 
KEASTR  ■ 0 
KFALSE  • 0 
KTRKS  * 0 
KWEST  ■ 0 
KWESTR  ■ 0 

KWESTl  * 0 
KEASTl  ■ 0 
MEASTl  - 0 
MWESTl  * 0 
MEAST  ■ 0 
ME4STR  * 0 
MF4I.se  ■ 0 
f'TRKS  ■ 0 
f -<EST  « 0 
MWfiSTR  ■ 0 
NWOlllT  * n 
GRPMIN  » 0.0 
GRPMAX  > GRMIN 
OISTR  ■ NSENSR  ♦ 1 

SET  4VG.  TIME  TO  TRAVERSE  EACH  DISTANCE  EUR  EACH  OIRECTION 
(1)  weSTBOUNO 


30 


TSBARIl,!) 
no  30  I ■ 
TVEl.(I,l,n  ' 
TVEL(I,1,2I  < 
TS8AR I I .1 ) 


- 0.0 

2,  NSENSR 

OIST( I )/(0P^Nn(l)/60.0  * 1000.) 
niST)  I ).  (ftWWNOm/60.0  * 1000.) 

■ 01  r j ( I)/)  Avr.vEU  I )/fco.o  • looo.) 


<2)  FASTHOUNO 
N ■ NSENSR  - 1 
T5HAR(MSENSR,2)  « 0.0 
on  AO  I ■ 1,  N 


AO 


c 

c***» 

c 


TVEt.I  1,2,1) 
Tveu 1,2,2) 

TSBAR  (1.2) 

LASTSN(l)  - 
L4STSN(2)  ■ 


OIST(  !♦!  )/{iipmn0(2)/A0,0  * lOOO.  ) 
OISTI  lAl  )/(HWWNI)(^)/AO.O  * 1000.) 

■ niST)  !♦!  (/(avGVEU2)/A0.0  • 1000, 
SET  LAST  SENSORS 

NSENSR 

1 


CHECK  FOR  INPUT  PRROR 


HAIN173(' 

MAIN1732 

MAIN1736 

MAIN17A0 

MAIN1750 

MAIN1760 

M4IN1770 

MAIN1780 

MAIN1790 

MAIN1800 

MAIN1810 

MAIN1820 

MAIM830 

HAlN.183i 

MA1N1832 

MAINlflja 

MA1NIH33 

MAIN1R33 

MAIN1833 

MAIN1R33 

MAIN1833 

MAIN1833 

NAIN1B33 

MAIN1833 

MAIN1R33 

MAIN1833 

M4IN1833 

HA  IN  1833 

HAIM833 

MAIN1833 

HAIN1833 

MAIN183A 

MAIN1B35 

M4IN1836 

HA  INI  BAD 

MAIN1850 

HAIN1H60 

M4INlfl70 

MAINIBHO 

HAINIBVO 

HAIN1B92 

HAIN1B9S 

HA  IN  1900 

MAIN1910 

M4IN1920 

HA  IN1930 

MAIN1940 

HAIN1950 

MAIN19S2 

MAIN19SA 
MAlNlflAi) 
HA IN19AA 
•lA  I N 1 
MA  IN) 9NA 
HA IN)97n 
mA  INIhhu 
MAIN1990 
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iFflrtrw  •>.  0 

no  100  1 ■ i.  16 

100  lEAROR  > IFRRnH  -t.  IFRRtll 

IF  IlFRROR)  ?no.  ?00,  110 
110  Wft|TE(NPRNT,  ni  (lERRU).  I « It  10 1 
C*U.  EXIT 
C 

C**«*  SET  UP  OtSTANCE  OF  X AXIS  FOR  GRAPHING 
C 

200  TUI)  ■ .06 

TUNSENSR)  « .96 
I TEMP  • MSENSR  - 1 
no  150  I • 2t  ITEMP 

150  TLU)  ■ .9  * niSTU  )/SEf.LNT  ♦ TU  1-1 ) 

r SET  UP  GRAPH 


IF  IKAGRAF  .NE.  01  CALL  GRAOH  (1.  TIME, 
C 

C*«»«  2ER0  ALt  ARRAYS 


C 


c 


DO 


nn 


ro 


3in 

nn 

300 


300  I > 1. 
I OR OP m 


NSEMSR 

■ 0 


INACTVI I ) 
NI>FTFC<  1 ) 
JSR ( I ) 
TMPSR ( I I 
JASTMNd  I 
JVAUMNt I ) 
NV(I  ) 
NA(  I) 
W(Itl) 
MPRIMFI 1,1) 
TFFFSTI I ) 
TMELSTI I > 

R(  I ) 
TIMIINOI I ) 
TImFIN( I ) 
300  K ■ 1,  2 
I«) 1 ,X) 
NOPENTI I ,K) 
IXTRAJ(K) 


0 

0 

99999 

99^:999. 

0 

0 

0 

0 

1.0/ 

P<  I . 

0.0 
0.0 
n 

0.0 
0,0 

• l 

• 0 
• 0 


FtOATINSENSR) 
I ) 


310  - I,  NFNO 

NAVLiniltJ.K)  • 0 
NRTRAJI I .J.O  ■ n 


WLWTMI  I M « 0.0 

Wl)PTM(  1 K ) ■ 0.0 

300  J • I,  NRTJC 
NASTC( J.K,  ! ) ■ 0 


no  AOn  I • 1,  NSIZ3 
no  *00  K ■ 1,  ? 

LSTCNV(K)  ■ 0 
NRTRUM  I ,K  ) « 0 
HEGTHF) I ,X ) ■ 0.0 
FI")TMe»I,K)  ■ 0.0 
on  600  1 ■ 1.  NHHTRK 

NRCGFNd)  • 0 


NPRNT  ) 


MA IN2000 
MA1N2010 
MAIN2020 
MA1N2030 
MA1N20A0 
HA1N2060 
MA!N2f)6l 
MA1N2052 
M4«N2053 
MAIN205* 
MAIW2055 
MAIN2066 
MAIN2057 
MAIN205H 
MAIN2059 
MA1N206A 
MAIN206H 
l«tAIN206n 
MAIN2070 
MAIN20Rn 
MA1N2090 
HAIN2100 
MAIN2110 
HA1N2120 
MAIN2122 
HAIN212* 
MAIN2126 
MA1N212« 
MAIN2130 
HAIN213* 
HAIS21A0 
MAIN21** 
MA1N2160 
HA1N2100 
MAIN2170 
MAIN2172 
HAIN217* 
MAIN21H0 
MA1N2190 
HAIN2200 
HAIN22UI 
MA1N2220 
NA  IN2230 
MAIN22A0 
MAIN2260 
MAIN22*0 
MAI^^270 
MAlN2?rtO 
MAIN2290 
M6lN23nn 
MAIN2310 
MAIN23 1 I 
MAI  M2  31 2 

HAIN2320 
MA  IN?330 
MAIN/ 3*0 
MA1N23SO 


*00 


MPtT"  *'**'*‘"^'^‘- “**“•*-* 


4i 


500  NKCWOTOI  ■ 0 

WHITFINPRNT,  9» 

C 

C«4>««  CAM,  the  first  RfHiTiNF 
C 


MAI N2^60 
MA  IN2365 
MAIN2370 
MAIN23RO 
HAIN23<vn 


ilOROP  , 

IKTRAJ, 

INACTV, 

LASTSN, 

TVEL  . 

NAVILO. 

NASTC 

MAIN2400 

NORSTR, 

N'OFTEC, 

NOPENT, 

NRTRAJ, 

NTJSTR, 

WV,  R , 

TMEFSTMAIN24Vf) 

tmelst. 

TSRAH  , 

UPWNO  . 

w , 

MLWTM  , 

WIIPTM  , 

IH 

MAIN2420 

HEGTME, 

FINTME, 

NRCGEN, 

NRCNOT, 

NR  TRUK. 

NRTJC  . 

NRRTRKMAIN243D 

NENO  , 

NSIZ3  . 

NSNS  , 

BETA  , 

IWCNT  , 

NSENSR, 

MS6MS 

MAIN24A0 

CSENS  , 

NO  , 

NR  , 

0 , 

LSTCNV, 

NOISK,  NPRNT  , 

MAIN2441 

JSR  , 

TMESR  , 

WCAP  , 

NWAR.AY 

) 

MAIN2442 

call  exit  MAIN2450 

C MAIN24(S0 

C****  formats  MAIN2470 

C MAIN2AH0 

1 F0«MAT(20AA)  HAIM244n 

2 FORMAT! lHlt2OX,07H*o*  PATTFRN  RECOGNITION  FOR  VEHICLE  FLOW  PAST  SEMAIN2500 

INSOPS  •**//  lOX,  20A4)  MAIN2510 

3 FORMAT! 12, Ffl.O,  7Fl0.O/3F10.(>,4ll0,Ffl.2,  12/  12  , F6.2I  KAIN2520 

4 FORMAT!  1MO,2HHWEST«OiiK'D  ; AVG.  VELOCITY  ■ , Ffl.2,  7H  KM/HK.,  2X  MAIN2530 

1 21H  MAXIMUM  VELOCITY  » , F6.2.25M  K/HR  MINIMUM  VE L fJC I T YM A I N25^0 

2 , 3H  « , Fft.2//2«H  EASTHOUNO;  AVG.  VELOCITY  > , Fft.2,  MAIN2550 

3 30H  km/hr,  maximum  velocity  « , F6.2.  12H  K/HK  MIN,  MAIN25A') 

4 17H1MUM  VELOCITY  « , F6.2,  5H  K/HR// llH 'THERE  ARE  , 13,  MAIN2570 

5 30H  sensors  on  a KUAO  segment  of  ,FH.2,  14H  m.  AT  LEAST  , MAIN25RU 

6 F4.3,35H  ARF  NEEDFO  to  confirm  trajectories//  RH  a valid  , MA1N29WI; 

7 24HSTR1P  CONTAINS  AT  LEAST  , 13,24H  DETECTIONS  NO  (■•ORF  THANMAIN2A00 

n ,F7,3,llH  MIN.  APART//IH  , 13,24H  TRAJ  MOST  HE  CONFIRMED  , MAIN2610 

9 55HREPORE  (iPDATIMG  WEIGHTS.  ANY  SENSOR  HAVING  A WT.  HFLOW  ,MA1N2620 

A E7.3,/  51H  IS  HYPO-ACTIVE  AND  WILL  8E  DROPPED  FROM  THE  STR 1 NGMA I N2630 

A 7A  after  . 13.  21H  consecutive  PERIODS.//  12H  THE  SUM  OF  ,MA1M26^>0 

C 2RHWEIGHTS  MUST  RE  GREATER  THAN  , F7.3.13H  TO  ACCEPT  A , MAlN2h50 

0 74HTRAJECT0HY  CONFIRMATION.)  MAIN2660 

5 FORMAT! I2,rR.O,  7Fin.0/(RF10.0) » MA1N2670 

E FORMATdwO,  lOX,  7H  SFNSOR,  SX.14H  OISTANCE!M.  ) //)  MAIN26RO 

7 FORMAT! IMO,  13X,  12.  IIX,  F7.2)  MA1N26RO 

fl  FORMAT  I l?H0***  ERRORS:  , IM2X,  13))  MA1N270D 

R FO-»MAT  ! )H1,  7X  , MAIN27D1 

A 20M  WINDOW  CLOSFD  T I MES , 52X .aihCONVOY  ENTERS  OR  LEAVES  (NO  MAIN27D1 


ITRUCK)  STPING/IH  ,5hSEnS«,  3X,  SHCLOSF,  7X,  4HnpFN,  5X.  BHO) 

2 RHTRAJ  no.,  39X,  lOHCfINVtIY  NO.,  2X,  3H0IR.7X.  4HTImE,3X, 

3 AHTRIICKS  I 

10  format  1 20MnGRAOHjNG  CONTROL  : , 12,  3X,  20HMINMTFS  PER  GRAPH 
I FR.2,  3X,  IRHwiNiiriwS  UN  !■))  « , 14) 

U FORMAT  I29H0THF  Smoothing  constant  is  ■ ,F6.4) 

END 


EPT  A , MAlN2h50 
MAIN2660 
MA1N2670 
MAIN26RO 
MA1N26W0 
MA1N270D 
MAIN27D1 
EAVFS  (NO  MAIN27D1 
BHOiR,  2X,MAIM27n2 
,3X,  MAIN2706 

MAIN27('R 

RAPH  ■ , MAIN2710 

MAIN2712 
MAIN2714 
MAIN27 18 
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><n!ITIi''e  CHKAOM 


rtEHMaW  9/16/71 


THIS  «nijTlt«'P  CHECK  4 VALID  ST«IP  ON  SENSDR  I POK 
ADDITKIN  it  WILL  CLOSE  ANY  WINDOW  THAT  SHOULD  HE 


-DMISSAHILITV.  IN 
CLOSED  ON  SENSOR  I. 


CHKA 

CHKA 

CHKA 

CHKA 

CHKA 


10 

?0 

SO 

<0 

SO 


SUBROUTINE  CHKAOM 

( IDROP 

IKTRAJ, 

INACTV, 

LASTSN, 

HWWNO  , 

navlid.chka 

60 

1 

NASTC 

NORSTR, 

NPRNT  , 

NOPEMT, 

NRTRAJ, 

NTJSTR .CHKA 

70 

2 

NV,  R 

FIRSTM. 

PASTTM, 

TSBAR  . 

UPWNO  , 

W ,chka 

BO 

3 

WLWTW 

WUPTM  , 

IB  , 

HEGTME, 

FINTiKE, 

NRGEN  ,CHKA 

yo 

4 

NCNDT 

NRTRUK. 

NRTJC  , 

NBRTRK, 

NEND  , 

NSIZ3  ,CHKA 

100 

5 

NSNS 

BETA  , 

IWCNT  , 

NSENSR, 

MSENS  , 

CScNS  tCHKA 

110 

6 

NO,  NB 

I , 

NTRAJC, 

LSTCNV, 

WCAP,  .NyARAV  )CHKA 

120 

CHKA  ISO 


COMMON/GRAPHS/  niSTR  . GRMIN  , GRPMAX,  GRPMIN,  IDIHl 
KAGRAF,  KEAST  « KEASTR,  KFALSE.  KTRKS  . KWEST 
HDIMS  , M0IM4  , MEAST  , HEASTR,  MPALSEt  HTRKS  t 
MWESTR,  NOHlNf),  NWOUIT,  KEASTl,  MEASTlv  KWESTl, 


U)IH2  , 
KWESTR  , 
HWEST  , 
MWESTl, 
DIKPEYI  26), 
EASTLYI 150)  < 
POINTY) 200), 
weSTUY) 150) 
TDRPEY)  15). 
TESTLY)  75), 
TPONTY) 100) , 
TWSTUY)  75) 


C 

C 

C 

C***=!‘ 

c 

c 

C 


Z120O),  AFALSX(200),  AFALSY(200),  DIRPEX)  25), 

DIRPWX)  25),  OIRPWYI  25),  EASTLX(150!. 

EASTUX(150),  EASTUYI150),  P0IMTX(200), 

WESTLX(ISO),  WESTLY)150),  WESTUXIISO), 
,TL(50),T4ELSX)100),  TAFLSY(IOO),  TORPEX)  15), 

TORPWX)  15),  T))rtPWY(  15),  TESTLX)  75), 

TESTUX)  75),  TESTUY)  75),  TPONTX(IOO), 

TWSTLX)  75),  TWSTLY)  75),  TWSTUX)  75), 

COHMON/XTRA/  TIMUNO) 50) , TIMFIN)50) 

DIMENSION  IDflOP(l),  NASTC(NRTJC,2,HSnS ) , NOPENT I NSNS , 2 ) , 

1 IKTRAJ(I)  , WUPTM(NSNS,NEND,2  ),  WL WTM ( NSNS , MEND, 2 

2 ,NAVLID(NS,NS,MPM0,2  ) . LASTSMIl)  ,NRTR  A.M  NSNS  . MEND , 2 

3 , IP(NSNS,2).  INACTVm,  HWHNOm.NDRSTRtl),  NT.JSiR(I), 

6 NV(1),  R(l).  TSHARd),  UPWNDIl),  W(l),  BEGTME(l), 

5 FINTME(l),  NHGEN(l),  NCN))T)1),  NRTRUK(l),  LSTCNV(l) 

CHECK  FOR  AOMISSABILITY  IN  BOTH  DIRECTIONS 


00  900 


I,  2 


IS  there  a window  open  on  THIS  SENSOR  ? 
IF  (NOPENT) I ,K) )1000,  90,  160 


START  4 NEW  TRAJ.  - 
A TRAJECTORY. 


OPEN  A WINDOW  IF  REMAINING  SENSOR  CAN  CONFIRM 


90  IF  (K 


I ) 120,  120.  95 


C 


WESTBOUND  ? 


ITS  EAST0OUND 


95  IF  (I  - MSENS)  106,  100,  100 


CHECK  THE  NO.  REMOVED 


ID.S  ICHECK  » 

on  105  II  » 1 
IF  (I  DR  UP)  II)) 

I CHECK  ■ 

CONT I NOE 

IF  1 IChECK  - MSENS) 


IDS 

105 

c 


I 

I 

1010.  105, 
ICHFCK  - 1 


lOS 


106,  107,  107 


SAVE  THE  valid  strip  THATS  msENS  FROM  THE  STRING  End. 


CHKA 
)CHKA 
)CHKA 
CHKA 
CHKA 
CHKA 
CHKA 
CHKA 
CHKA 
CH:.;'' 
CHKA 
CHKA 
CHKA 
-HKA 
CHKA 
CHKA 
CHKA 
CHKA 
CHKA 
C'  KA 
CHKA 
CHKA 
CHKA 
CHKA 
CHKA 
CHKA 
CHKA 
CHK.A 
CHKA 
CHKA 


160 

150 

160 

166 

165 

166 
170 
IHO 
190 
200 
210 
220 
2S0 
260 
250 
260 
270 
2H0 
290 
300 
310 
320 
3S0 
360 
350 
360 
3 70 
3HD 
SrtO 
3H2 


jaiiyiiiMii^^  ri  I 'll*’  If i.i..i;in.ii.iii...iii.i^i...^ii  .■  — ' I .1-  ...«.«■  J ' I' I ' "■»' ' ' I I 


-79- 


lOt  TIWONiUn  = l-t«STM 
T IMFIN( I ) ■ PASTTM 

r,n  rn  9o-' 


c 

c*** 

c 

107 

no 


m 

115 

117 


STAPT  A (MFW  7«AJSCT0«V 


II 

IKTRAJIK ) 


CHKA 
CHKA 
CHKA 
CHKA 
CHKA 
CHKA 
CHKA 

(h;<a 

CHKA 
CHKA 

r.i-'<A 
■'  n;i;a 

CHKA 
CHKA 
CHKA 

ZrRO  AOM.STRP  CHTRCHKA 
CHKA 
CHKA 

FIRST  ADM.  STRIP  CHKA 
CHKA 

OPEN  WINDOW  ON  NXT  SENS  CHKA 

CHKA 

FIRSTM,  PASTTM,  0,0,  LASTSN,  CHKA 

1 I DROP  , TSPAR  , HWWND  , OPWNO  , WL'*'Tm  , WUPTM  , CHKA 

2 NOPEMT,  MAVUIO.  NRTRAJ.  IK  , NEND  , NASTC  , CHKA 

3 NPPNT,  MATJC  , MSNS  , NSMS+l,  NSE^SR  ) CHKA 

GO  Ul  900  CHKA 

W6STR0UND  CHECKS  CHKA 


I - 1 

t IKTRAJ(K)  4 I 

CHECK  SIZF  OF  NASTC  ARRAY 
ICKNAS  *{»IKTRAJ(U  4-  IKTR  AJ  I 2 »)  / ( NTRAJC  4 1 ) 4-  1 ) 

IF  (ICKNAS  .GE.  NRTJC*  GO  TO  1050 

IK  » M00(  IKTRA.KK  ) , NRTJC) 

IF  (IK)  112  , 112,  115 
IK  » NRTJC 

on  117  12  » 1.  NSENSR 

NASTC! IK,K, 12)  » 0 

NASTC! IK,K, I ) =1 

call  CHKOVL  ( II,  IK,  K , I , 


120  NSW  ■ NSENSR  4 1 

IF  (I  - (NSW  - MSENSn  125,  125,  13R 
C 

125  ICmFCK  » NSW  - i 

on  130  II  = I.  NSFMSI 
IF  1 II)»I)P(  id;  1010,  13N,  127 
177  ICHECK  » ICHECK  - 1 

130  CONTINUE 

IF  (ICHECK  - MSENS)  13R,  135,  135 
C 

DITTO  remarks  STATEMENT  lO.S 
C 

13R  TIMUNOI  I I 1 FIrSTM 
TI ME IN( I ) » PASTTM 
on yXn  900 


CHK  THE  NO  REMOVED 


135 


II  » I 4 1 


GD  TO  110 


there  is  an  open  window  on  this  SENSOR 
C OBTAIN  CELL  NO.  OF  FIRST  OPEN  WINOOW 

C 

140  J ■ NOPENT ( I ,K ) 

c 

r,***<.  DOFS  HOTTOM  OF  VALID  STRIP  EXCFEO  THIS  WINDOW  UPPER  TINE  7 
C 

142  IF  (FIRSTM  - WOPTMIDJ.KI)  144,  144,  200 

C 

r«**v  Mil!  IS  THf  VALin  STRIP  FFLOW  ThIS  Of'1'4  WINDOW  ? 


CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKt 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 


383 

384 

385 

386 
360 
400 
41'. 
420 
430 
■432 

34 
436 
440 
46' 
46l 
4 70 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
o70 
680 
681 
687 
6H3 

684 

685 

686 
690 
700 
710 
720 

7 30 
740 
750 
760 
770 
780 
790 

8 00 
810 
f\pn 


KMii  IS  T>^r  vALin  ST«fP  h^in^  this  wimdoh  ? 


PV,t  ,^>  jit  ,„  ^*',''  ■^  ( < ,'V  I'f'i*'  ( » y ?*.  • , I , ,ix  I \ .11  ‘.  "j  . i,.  --.i 

SlhlitoUiT M*’ti«slHi»,.Wi8i-iiifa'r'-i  d"  ‘h  raJil^'2M.‘!ii ,.  fr„,  i.  ■(/  .IL.,^.  ":!  .v..’.  ■ ■ ' I 
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144 

c 

C***4 

c 

c 

I4fc 

c 

c 

14R 

c s-c 


VF  (P4STTM  - W|.WTM(l,.;,^n  <tO,  146,144 

N«tt  ITS  IN  THE  MINDOM.  SHMULn  MINOOM  NOW  BE  CLCSEO  ? 

COONT  THE  AO'-i,  STRIP 

NASTC'NRTRtJd.J.K),  K,  H . I 
IE  (PASTTM  - WilPT.M(I,J,KI)  163,  14«,  14f) 

VES  CLOSE  IT,  IS  IT  THE  ONLT  WINDOW  OPEN  ? 

WtWTMI I,J,K),  K,  NRTRAJ(I,J.K) 


WRITEINPRNT,! » I, 
4060  OUTPUT  HERE 


WUPTM( I,J,K), 
+ *■♦■++++♦•♦■ 


‘OP(:nT(  I ,K  ' 
,62 


ITEMP 


C 

160 

162 

C 

c**»* 

c 

16P 


THJj  is  the  ONLV  UEEiM  WiNt.  (W.  c;i.:.E  it. 

NOPtNTIIvK)  » 0 
NAVLIOI  I ,.I,K  >■  0 

IE  ITS  the  last  sensor  IN  THE  STRING  THEN  THE  TRAJ.  l»  LCi'iPLETE 
IF  (I  - LASTSN(O)  Its,  I6fl,  165 

CALL  TRAJCN  ( NRTRAJI I , J,K I , J , K.  PASTTM,  lOROP 


CHT.A 

CHKA 

CHKA 

CKKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 

CHKA 


B30 

H40 

f»50 

H60 

«62 

P64 

870 

880 

890 

900 

910 

920 


IF 

( IKAGRAF  „E0. 

0)  ,0R. 

(NOW I NO  .EO.  0)  ) 00  TO 

nr 

CHKA 

932 

CALL  SETRAY 

( K,I, 

WUPTM(I,J,K»,  HLWTMll.J, 

K>  ) 

CHKA 

934 

147 

IF 

I J - ( I8( I ,K)  - 

in  149 

, 160,  1470 

CHKA 

940 

C 

NUTES 

18IIK)  CAN  RE  smaller  ‘HAN  J. 

CHKA 

941 

1470 

IF 

(J  - I U'U.K)  + 

NENO  - 

in  149,  160,  1030 

CHKA 

942 

c 

CHKA 

950 

*«.«« 

NO 

THERE  IRE  MORE 

WINDOWS 

OPEN.  UPGAie  THE  WINDOW 

POINTER 

CHKA 

960 

c 

CHKA 

970 

149 

iTEHP  ■ J > 

1 

CHKA 

980 

IF 

I ITEMP  - NENO) 

154,  154 

, 152 

CHKA 

990 

152 

ITEMP  1 1 

CHKAIOOO 

1 

2 

3 

4 


LASTSN, 
NTRAJC, 
NRTJC  , 
LSTCNV, 


r,ri  TO  900 


163  NAVLini  I ,J,K  )■  I 


165 

?T(f 

’ 30 
190 

1 

2 

3 


IF  IK  - 2)  170,  180, 
L » I ♦! 
GO  TO  190 
L - I - I 

call  CHKOVL  (L  , 

LASTSN. 
NMPFNT, 
NSNS  , 


MASTC  , 
8 , 
NHRTRK, 
NSNS*1, 


1 8!) 


NB,  NO, 
TSHAR  , 
rtFGTME, 
NSENSR, 


r,n 


NRTJC 
TO  900 


NRTRAJI  I ,.I,K  I , 
lORftP  , TSHAR, 

navlio,hrtra,i. 

NSNS*1.NSENSR 


CHKAIOIO 
CHKA J 020 
CHKA 1030 
CHKA1040 
CHKA1050 
CHKA1060 
CHKA1070 
CHKA1080 
■ . '.'.AlORO 
CHKAl  10.; 
CHKAlllO 
ISENS  , INACTV.CHKAl 120 
NDRSTR,  NTJSTR,  MScNS  , NV  ,CHKAU30 
WCAP  . N , NSNS  , NSIZ3CHKA1 140 

FlNTME.  NCNOT  , NRTRUK.  NPRNTCHK A 1 1 50 
WLWTMI  I,J,K),rtWW^n,  NW6RAY  ) CHKAH60 

CHKA1170 

MARK,  A VALID  STRIP  CHKAll'UJ 

CHKA1190 
CHKA 1200 
CHKA1210 
CHK61220 
CHKA I 230 
CHKA1240 
CHKA 1250 
0 , n,CHKA12f'0 
WUPTN,CHKA12Vn 
NOHNT ,CHKA 12H0 


OPEN  JINOOW  ON  NEXT  SENSOR 


K . I 
8WWNU 

IH 


FIRSTM, 
DPHNO  , 
NENO  , 


PASTTM, 
k'LHIM  , 
NASTC  , 


> 


C 

C**4* 

c 

c 


TMFRF'IS  more  than  one  window  open  oh  HE  MISSFO  OR  MOTH. 

CLOSE  CURRENT  window 


CHKA 1290 
CHKAl 300 
CHKA1310 
CHKA1320 
CHKAl 330 
CHKAl 340 
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200  /(>i|TF:|i\PRNT«n  I.  ( I . ) , MLWTMM  • J «K  ) t K,  ORTA  A J ( 1 . J,  K ) 

S-C  A0*0  OtITRlIT  H6RE 

IP  t (KAGRAF  .FO.  01  .OR.  (NDWINO  .EO. 

CALL  SETRAY  ( K.I,  WMRTMt 1 t J>K) 


20?  IF  (J  - LASTSMKM207,  205t 
205  CALL  TRAJCM  ( NRTR A J (I , J ,K ) , 


0)  I GO  TO  203 
t WLWTM(I,J,K)  » 

IS  THIS  THE  LAST 


1 

2 

3 

A 

5 


fin  TO  225 


INACTV, 
NV  , 
NSI23  . 
NPRNT  , 
NMARAY 


LASTSN, 
HTRAJCt 
NRTJC  . 
LSTCHV, 


207 

J,  K.  WUPTMII ,J,K! , IDROP  , CSENS 
MASTC  * MW,  NO,  NDRSTR,  NTJSTR 
R , TSRAR  , WCAP  , u 

MRRTRK,  HEGTME,  FINTME,  NCNDT,YRtRUK 
NSNS-t-l*  NS6MSR,  WLWTM(  I,J,K»  , HWWNI), 

» 


CP*** 

c 

207 

C 

C*PPP 

c 

210 

21A 

215 

21A 


HAO  A WALin  STRIP  EVER  FELL  IN  THAT  HINOOW  ? 
IF  (NAVLIOn ,J,K»>  1040,  210,  220 
NO!  EXTEND  TRAJECTORY 


IF  (K  -21  214,  215, 

L - I ♦ 1 
GO  TO  2i6 
L « I - 1 
call  CHKOVL  (L  . 

LASTSO, 


215 


GO 


C 

C***p 

c 

220 

r. 

1' « 

C 

225 

27A 

225 

C 

230 


NRTJC. 
TO  225 


NOPEN T, 
NSNS  , 


NRTRAjn,J,K)  , 
inanp  , tsivar  , 

NAVLID,  NRTRAJ, 
NSNS+1,  NSENSR 


K , I , n.O?  0.0,  I , 
rt'Wt/NO  , IJPWNO  , WI.WTM, 
IB  , NEND  , NASTC, 


CHKA1350 
CHKA13A0 
CHKA1362 
CHKA13A4 
SENSOR  CHKA1370 
CHKA13R0 
CHKA13R0 
tHSENSCHKA1400 
NSNS  CHKA1410 
CHKA1420 
CHKA1430 
CHKA1432 
CHKA1440 
CHKA1450 
CHKA1460 
CHKA1470 
CHKA1480 
CHKA1490 
CHKA1500 
CHKA1510 
CHKA1520 
CHKA1S30 
CHKA1540 
CHKA1550 
, CHKAlSftO 
’WI)PTM,CHK41570 
NPRNT, CHKA15R0 


) 


A VALID  STRIP  HAS  FALLEN  IN  THIS  WINDOW..  2ER0  CNTR 
NAVLIO!  I ,.J,K  I ■ 0 

! MOK  AT  THE  NEXT  WINDOW  IF  THERE  IS  ONE. 


J ■ J ♦ 1 

IF  (J  . NENOJ  22R,  22R,  224 
J - I 

IF  U - IRn,KI)  230,  240,  230 


?40 

900 

C 

C 

I 

100i» 

lOOJ 

lOlO 

101! 


NOPFNTI I ,K)  ■ J 
GO  TO  142 

Nr-PFNTII.KI  . 0 
fiO  TO  40 
CONTINUE 
RFTORN 

FORMATS  AND  MESSAGES 

FOft..»*T{lM  , 12,  3X,  F9.3,  3X,  F9.3,  4X. 
WRITFINPRNT,  IDOn  NnPFNI(I,K>,  I,  K 
FORNdT  dSHOoP*  ERROR  500  , 3|iOJ 
CAi.L  exit 

WRIVF!NPRNT,ini  1 ) lORIIRdl  . I , K 
FORMATd5HO**4  ERROR  510  , 3dO) 


THERE  IS.  UPDATE  PNTR 


.NO  MOftr  wfMRo 


12,  4X,  m 


CHKA1590 

CHKAlAOn 

CHKA1410 

CHKA1620 

CHKA1A30 

CHKA1640 

CHKA1650 

CHKA1660 

CHRA1670 

CHKA16R0 

CHKA1690 

CHKA1700 

CHKA1710 

CHKA1720 

CHXA1730 

. ■ I T 4 . t 

CHKAi 7^0 

CHKAlTt..'. 

CHKA1770 

CHKA17H0 

CHKAl79(i 

CHKAIROO 

CHKAIFIO 

CHKA1R20 

CHKA1F30 

CHK AIM40 

CHRAIB50 

CHK A1H40 

CHKA1H70 

CHKAIRRO 


CALL  t-XIT 

1030  MftlTeiNPOMTtlO’Vl ) J«  IB(l«K>c  I.  K 

1031  fnR«OAT(  ISHO***  EHMUR  320  » 4110) 

call  exit 

1040  WRITEINPPA'T. 1041)  NAVL 1 0)1  . J.K ) * I,  J.  K 

1041  E0aMAT)l3M0***  EP«OP  530t  4110) 

CALL  EXIT 

1050  ICXNAfv  -tlCKMAS  ♦ l)/2 
WaiT6INW)NT,l051)  ICKNAS  . IKTHAJ)!),  IKT«AJ(2) 

1051  Ft«MAT15lH0**44*  EPPOR  527:  ARRAY  NASTC ('XRT JC » 2»  NSMS)  MUST  . 

1 47HHAVE  NRTJC  DIMENSION  AND  INDEX  INCREASED  ABOVE  , 


CHKA1A90 

CHKA1900 

CHKA1910 

CHKA1920 

CHKA1930 

CHKA1940 

CHKA1950 

CHKA1952 

CHKA1954 

CHKA1956 

I5.CHKA1957 


2 //  IHOt  ieX«12MTRAJ.  CMP  ■ , I4«  19HTRAJ  BEGUN,  WEST  > ,CHKA1958 


3 


14,  RH  EAST  - , 14) 


CHKA1959 


CALL  EXIT 


CHKA195A 


END 


CHKA1960 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


«nuTIN6  CHKOVL 


M.  HERMAN  9/l^/71 


THIS  RIMITINE  IS  CALLEO  WHEN  A XINDOW  IS  CLOSED  OH  A SENSOR.  IT 
OPENS  the  wINOOW  on  the  next  sensor,  it  check  FOR  WINDOW  OVFRLAP, 

THAT  IS  IF  A WINDOW  TO  HE  0P6N60  OVERLAPS  A PREVIOOS  ONE  THE  A 
single  large  window  is  MADE.  IF  THE  OVERLAP  IS  FROM  Two  DIFFERENT 
TRAJECTORIES  ONE  LARGE  WINDOW  IS  CREATED  “WITH  THE  TRAJECTOR  NO. 

OF  THE  LOWER  WIMOOW,  THE  ROUTINE  ALSO  EXTENDS  WINDOWS.  THAT  IS.  IF 
A window  IS  CLOSED  THAT  NEVER  CQNTaIneO  A VALID  STRIP  IT  IS  EXTENOEOCOVL 
THE  AVERAGE  TIME.  OVERLAP  IS  ALSO  CHECKED  DURING  EXTENSION. 


COVL 

COVL 

COVL 

COVL 

COVL 

COVL 

COVL 

COVL 


subroutine 


CHKOVLIL.  NTJ, 
LASTSN, 
WUFTM  . 
NASTC  , 


X , IN. 

I DROP  , 
NOPENT, 
NPRNT  , 


THEFT,  TM6LT, 
rSBAR,  TVEL  . 
NAVLID.NRTRAJ, 
NRTJC  .NSNS, 


lEXND. 
UPWNO  , 
IB  . 
NSN2  , 


NRCEL  , 
WLWTM  , 
NENO  , 
NSENSR 


L 

NTJ 

K 

I 

NRCEL  - 


SENSOR  NO  ON  WHICH  WINOOW  IS  TO  HE  OPENED 

Trajectory  number 

DIRECTION 
PREVIOUS  SENSOR 
CELL  NO  OF  WINOOW  ON  PREVIOUS 


SENSOR  THAT  IS  CLOSED 


COMHON/XTRA/  TIMUNOISOI.  TIMFINI50) 

OIhENSION  LASTSNIII,  lOROPIlI.  UPWNOI II . IBINSNS.2)  . 

NASTCINRTJC,2«NSNS),TSBAR|NSN2.2) . WLWTMINSNS»NeND,2), 
WUPTM<NSNS,NEN0,2I  .N0PENTINSNS,2),NAVLIDINSNS,NEN0,2I 
NRTRAJINSNS.NENO.2).  IVEL(NSN2.2.2> 


I ■ 16 
TMEFST 
TMELST 
lEXTNO 


C 

C 

HO 

H9 

90 

95 

C 

C*w*>* 

C 


THEFT 

THELT 

lEXND 


WAS  PREVIOUS  SENSOR  LAST  IN  THE  STRING 


IF  (K  - 
IF  II  - 
IF  I.  - 
RETURN 


21  H5,  90, 
LASTSNIKII 
LASTSNIKI I 


1010 
100,  95< 

>5,  95, 


95 

100 


NO  I SEE  IF  SENSOR  L HAS  BEEN  REMOVED. 


100 

If 

(inROPIU)  1000  200,  110 

C 

C***4 

c 

IT 

HAS  SKIP 

A sensor 

110 

IF 

»K  - 2 I 

120.130,1010 

120 

L • L 

♦ 1 

GO  TO 

100 

130 

L • L 

- 1 

GO  To 

100 

C 

C*«4* 

1. 

calculate 

THE  NEW  WINDOW  UP 

C 

c»*** 

IS 

IT  An  extensiiin  or  t winodw 

c 

200 

IF 

i lexTNni 

1020,  210,  22D 

AND  DOWN  TIMES. 


COVL 
COVL 
COVL 
COVL 
COVL 
ICOVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
► COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
COVL 
CUVL 
COVL 
COVL 


10 
20 
30 
40 
50 
60 
TO 
HO 
90 
100 
110 
120 
130 
140 
150 
1.60 
170 
IBO 
190 
200 
210 
220 
225 
230 
240 
250 
260 
261 
262 
263 
265 
270 
2H0 
290 
300 
302 
304 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
4 30 
440 
450 
440 
470 
48  0 
4V0 
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I 


c««*« 

MOi  IT3  CAllSen  HY  AN  ADMISSAHLE  SVRIP 

COVL 

510 

c 

COVL 

520 

210 

W0TM6  ■ <TN6LST  TM6PSH  * , 

5 TVELIL,K,2^ 

COVI. 

530 

WCTMI-  a JTMetST  ♦ TM6FSTJ  a , 

5 + 1VELIL»K,U 

COVL 

5*0 

GO  TO  300 

COVI. 

550 

C 

COVL 

5fcO 

V6S!  lEXTENO  WINOOH 

COVL 

570 

c 

COVL 

5«0 

220 

WOTMC  - WLwTMMt  NRCEL*  K»  + 

TSBAR(L,K> 

COVL 

6«0 

WCTMg  a WUPTMU,  NRCEU.  K1  ♦ 

TSBAR|L,K) 

COVL 

600 

c 

COVL 

610 

II,  CHECK  FOR  OVERLAP  IF  THERE  IS  AN  OPEN  MINOOW  ON  THIS  SENSOR 

COVL 

620 

c 

COVL 

.i30 

300 

IF»NOPENT(L,Kn  1030,  310,  *00 

COVL 

6*0 

C 

COVL 

650 

c**»* 

(A)  NO  OPEN  WINDOW,  OPEN 

.ONE, 

COVL 

660 

C 

COVL 

670 

310 

N a IBILtK) 

COVL 

680 

NOPENTIL.K)  a N 

COVL 

690 

320 

WI)PTM(LtN,K)  a wCThE 

COVL 

700 

WLWTH||.,N,K)  a WOTME 

COVL 

710 

C 

ZFRO  VALID 

STRIP  CNTR, 

COVL 

720 

NAVLI0(L«N,K)  a 0 

COVL 

730 

C 

SET  trajectory  no. 

COVL 

7*0 

NRTRAJ(L«N,K)  a NTJ 

COVL 

750 

f. 

SAVE  THIS  CELL  NO. 

COVL 

75* 

NS3  a N 

COVL 

756 

C 

UPDATE  FIRST  AVAIL 

CELL 

COVL 

760 

N a N 4-  1 

COVL 

770 

IF  (N  ,GT,  NENO)  N a 1 

COVL 

7R0 

IB(L,K)  a N 

COVL 

790 

c 

COVL 

791 

THIS  SECTION  TESTS  TO  SEE  IF 

THIS  NEW  WINDOW  NOW ‘BRACKETS  A 

COVL 

792 

c**** 

PREVIOUS  VALID  strip  THAT  WAS 

TOO  CLOSE  TO  THE  STRING 

ENO  TO 

RE 

COVL 

793 

adhissihle.  it  hay  now  cause 

AN  ASTI  AN  OPEN  A WINDOW 

ON  NEXT 

SEN 

• COVL 

795 

c 

COVL 

796 

if  (TIMFINIU  - WOTHE)  390,  330,  330 

COVL 

797 

330 

IFITIMUNfl(L)  - WCTM6I  3*0,  3*0,  390 

COVL 

798 

C 

ITS  IN  NEW  WINDOW 

COVL 

799 

3*0 

NAVlI0(L,NS3,K)  a 1 

COVL 

79A 

NASTCInT.),K,L  i«  L 

COVL 

79R 

c**»* 

lU  M.  WlNOriw  ON  NEXT  SENSOR 

COVL 

79C 

THELST  a flHFlNIL} 

COVL 

790 

VHEFST  a TIt«(iNO)L» 

COVL 

79F 

IFXTNO  a 0 

COVL 

79E 

I a L 

COVL 

79G 

IF  U - 2)  330,3*0,  IPIO 

COVL 

79H 

SSO 

L a L ♦ 1 

COVL 

791 

GO  TO  «0 

COVL 

79J 

360 

L a t - 1 

COVL 

79K 

r.n  TO  RC 

COVL 

79L 

3«»0 

RET'IRN 

COVL 

800 

C 

COVL 

810 

c**»* 

(U)  THERE  IS  A WINDOW  OPEN 

CCVL 

HZO 

c 

cnvL 

830 

c 

OBTAIN  LAST 

OPEN  cell  NUCDVL 

9*0 

*00 

JI  a 

- 1 

Ci'VL 

850 

95 


IF  (J1  .LT.  1)  ,!1  - NEMO 

COVL  R6f: 

c 

• 

OiKTAlN 

ITS  TRAJECTORY  NUCOVL  RTO 

J2  a NRTRAJ(Lt  Jit 

K) 

COVL  880 

c 

U'VL  890 

IS  NEW  WtNOOW  FROM  SAME 

TRAJECTORY  AS  THE  OLD  COVL  900 

c 

COVL  910 

IF  (J2  > NTJ)  420,  610,  620 

COVL  920 

c 

COVL  930 

c**** 

YES  I JUST  EXTEND  UPPER 

WINDOW 

COVL  960 

c 

COVL  950 

610 

WUpTMILtJltK)  a WCTME 

COVL  960 

RETURN 

COVL  966 

c 

COVL  9T0 

C«**6 

NO  I CHECK  FOR  OVERLAP. 

COVL  980 

c 

COVL  990 

620 

IF  (WQTME  > WUPTM(L,J1,K) ) 500.  500,630 

COVLIOOO 

C 

CGVLIOIO 

c**«* 

NO  OVERLAP. 

OPEN  A NEW  WINDOW  COVLI020 

C 

COVL1030 

630 

N a IBIL.K) 

C0VL1060 

GO  TO  320 

COVL 1050 

C 

C0VL1060 

C**** 

(C)  WINDOWS  OVERLAP.  EXTEND  CURRENT  WINDOW 

COVL1070 

C 

COVL1080 

300 

WUPTMIL, Jl,K)  a WCTME 

C0VL1090 

C 

COVL 1100 

C 

covLino 

C666* 

merge  aomissahle  strips 

INTO  CURRENT 

WINDOW.  C0VL1120 

c 

C0VL1130 

no  520  12  a 1,  NSENSR 

r0VL1160 

IF  (NASTCINTJ,  K,  12 »)  1060, 

520,  510 

COVL 1150 

510 

fJASTC(J2.  K,  12)  a 1 

COVL1160 

520 

continue 

COVLliTO 

return 

covLiino 

C 

COVU  190 

c*««* 

ERROR  MESSAGES 

C0VL1200 

c 

C0VL1210 

1000 

WRITEiNPRNT.lOOl  ) L , lOROPd.) 

C0VL1220 

1001 

FORMAT) 15M0a*a  ERROR  230  , 2110) 

C0VL123O 

call  EXIT 

COVl.1260 

1010 

WRITE(MPRNT,1011 ) K 

COVU  250 

ion 

FORMAT!  15H0*Ap  ERROR  260  , HO) 

C0VL1Z60 

CALL  exit 

C0VU2TO 

1020 

WRITE!NPRNT,102L)  nXTNO 

C0VL12H0 

1021 

FORMAT! ISwOaaa  BmhOs  250  , 1 10) 

COVLI29O 

C*U  I-XIT 

1030  «ll!TP(NP«NT,  103U  It  KtNnP6NT(ttK| 

1031  Fn#M4T( FHUnH  260  , 3I10» 

C*LL  exiT 

1060  W«ITP(NPMnT,  1061)  NTJ.  K,  12,  N6STC « NT J , K . 12) 

1061  FU0MATI 13Hn*»6  Eawnn  270  , 6I10> 


C0VU3OO 

C0VU31O 

C0VL1320 

C0VU33O 

C0VL134O 

C0VU36O 


C*U  ?XIT 
ENO 


C0VU360 

C0VL137O 


nnoonnonnrvo 
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RntiTINI:  CHKWIN 


M,  BERMAN  9/13/71 


THIS  ROUTINE  CHECKS  WINDOW  IN  BOTH  DIRECTIONS  TO  SEE  IF  ANY 
SHOULO  HE  CLOSEO,  THE  CHECKS  ARE  HADE  IN  THE  PROPER  SEQUENTIAL 
FOR  EACH  OIPECTION  . THE  ASSURES  THAT  WINDOW  WILL  BE  CLOSEO  IN 
PROPER  UROER. 

THE  ROUTINF  OPERATES  IN  TWO  MOOES: 

(1)  ALL  WINDOWS  ARE  CHECKED  - NO  VALID  STRIP 

(21  all  windows  except  FOR  SENSOR  I ARE  CHECKED  - VALID 


CWIN 
CWIN 
CWIN 
OROERCWIN 
the  CWIN 
CWIN 
CWIN 
CWIN 

stripcwin 


ON  SENSOR 


ICWIN 

CWIN 


SUBROUTINE 

CHKWIN( IDROP 

IKTRAJ,  INACTV, 

LASTSN, 

BWWNO  , 

NAVLIO, 

CWIN 

1 

NASTC 

NORSTR,  NPRNT  , 

NOPENT, 

NRTRAJ, 

NTJSTR, 

CWIN 

2 

NV,  R 

FSTTME,  PSTTME, 

TS8AR  , 

UPWND  , 

W , 

CWIN 

3 

WLWTM 

WUPTM  , IB  , 

BEGTME, 

FINTME, 

NRGEN  , 

CWIN 

4 

NCNOT 

NRTRUK,  NRTJC  , 

NBRTRK, 

NEND  , 

NSIZ3  , 

CWIN 

5 

NSNS 

BETA  , IWCNT  , 

NSENSR, 

MSENS  , 

CSENS  , 

CWIN 

4 

NO 

NB  , IS  , 

ISWTCH, 

NTRAJC, 

LSTCNV, 

CWIN 

7 

WCAP  , 

tmelst,  tmefst. 

NWARAY 

) 

CWIN 

1 

A 

B 

2 

3 

4 

5 
h 

7 

8 
9 

1 

2 

3 

4 

5 


COMMON/OR APHS/  DISTR  . 
KAGRAF,  KEAST 
M0IM3  . MDIM4  , 
MWESTR,  NOWIND, 


Z(’DO), 


AFALSX(200), 

niRPWX{ 

EASTUXdSOit 

WESTLXdSOIt 


GRMIN  , GRPMAX,  GRPMIN,  lOIMl 
KEASTR,  KFALSE,  KTRKS  , KWEST 
MEAST  » MEASTR,  MFALSEt  MTRKS  t 
NwOUlTt  K6AST1,  MEASTl,  KWESTl, 


«TL(50),TAFLSX(100), 
TDRPWX(  ISI, 
TESTUXI  7S), 
TWSTLX)  75), 


AFALSV(200), 
DIRPWYI  25), 
EASTUYdSO), 
WESTLYdSO), 


DIRPEX(  25). 
EASTLXI 150) , 
P01NTXI200), 
WESTOXdSO) , 


TAFLSYI 100), 
TDRPWYI  15), 
TESTUYl  75  ;< 
TWSTLYI  75), 


TORPEXI  15), 
TESTLXt  75), 
TPCINTXI  100), 
TWSTUX(  75), 


ID1M2 
KWESTR  , 
MWEST  , 
MWESTl, 
OIRPEY(  25), 
EASTLYI 150)  , 
, P0INTY(200), 
, WcSTUYdSO) 
TDRPEY(  15), 
TESUY(  75), 
TPONTYI 100) , 
TWSTUYI  75) 


CWIN 


OIHENSiDN  IB(NSNS.2),  lOROPd), 

, LASTSNd)  , WUPTmINSNS,  NENO,  2)  , WLWTM ) nSNS  ,NEN!)  ,2 ) 

, NRTHAJ(NSNS,NEND,2),  IKTRAJd),  INACTVd),  HWWNDd)  , 
NASTCd),  NORSTRd),  NTJSTRIl),  NVd),  R(H,  TSBARd), 
UPWNDd),  Wd),  HEGTMEd),  FINTMEd),  NRC.EN  <1  ) , NCNOT  d ) 
LSTCNVd),  NRTRtJKd),  TMELSTd),  TMEFSTd? 

NS5  • N^ENSR  ♦ 1 


NAVLIfK  VSNS,NENO,2),NOPENT(NSNS,2)CWIN 

CWIN 
CWIN 
CWIN 
»CW1N 
CWIN 
CWIN 
CWIN 
CWIN 


10 

20 

30 

40 

50 

60 

70 

RO 

90 

100 

110 

120 

130 

140 

IfiO 

160 

170 

IftO 

IflO 

190 


200 

210 

2)2 

213 

214 

215 
220 
230 
240 


C«P*« 

START  WESTBOUND  DIRECTION  FIRST 

CHIN 

250 

c 

CWIN 

260 

on  900  K ■ 1 , 2 

CWIN 

270 

I • 0 

CWIN 

2R0 

DO  910  d ■ 1,  NSENSR 

CWIN 

290 

IF  (K  - 2)  '.00,  110.  110 

CWIN 

300 

too 

I ■ I ♦ 1 

CWIN 

310 

r,n  TO  120 

CWIN 

320 

110 

I ■ NSS  - d 

CWIN 

330 

c 

CWIN 

340 

C4PP4 

CONTINUF  IF  SENSDR  IS  DROPPED  FROM  THE  STRING 

CWIN 

350 

c 

CWIN 

360 

120 

IF  dOROPd))  1000,  130,  910 

CWIN 

370 

c 

CWIN 

3H0 

c*4»* 

CfiNTINUE  IF  NO  WINOOW  IS  UPFN  ON  THE  SENSOR 

CWIN 

390 

4 
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130 


IF  INOPENTd,  K))  lOlOf  910.  1«C 


f, 

C***»  CONTINOe  IF  THE  ST<UP  WAS  VALIO  ON  THIS  SENSOK 
C 

140  IF  (ISWTCH)  160,160,  150 

ISO  IF  (I  - IS)  160.910,  160 

C 

C««r*«  OBTAIN  CFLL  NO.  OF  FIRST  OPEN  WINDOW  UN  THI-S  SENSOR 


s 


160 


J » NOPENT(I.K) 


C»*4»  SHOULD  WINDOW  BE  CI.OSED.  IF  NOT  CONTINUE 
C 

IF  (PSTTKE  - WUPTMI I ,J,K) ) 910,  910,  172 


170 

17? 

174 


IF  (TMEFST(I)  - WUPTHII.J.K))  174, 
IF  (PSTTHE  - TMFLSTII)  - BETA)  910, 


CHK  FOR  EXTENDED 
174,  IBO 
910, IBO 


CWIN  400 
CWIN  410 
CWIN  420 
CWIN  430 
CWIN  440 
CWIN  450 
CWIN  460 
CWIN  470 
CWIN  480 
CWIN  490 
CWIN  500 
CWIN  510 
CWIN  520 
CWIN  530 
CWIN  540 
CWIN  541 
CWIN  542 


C***»  CLOSE  WINDOW  SECTION 
C 

IBO  WRITEINPRNT,  1)  I,  WUPTM  (I,J,K)  , WLWTM( I , J, K) , K 
C S-C  4060  OUTPUT  HERE 

IF  ( (KAGRAF  .60.  0)  .OR.  (NUWINO  ,E0.  0)  ) GO  TO  IBB 

CALL  SETRAV  ( K,  I,  WUPTM(I,J,K),  WLWTMII,J,X)  ) 
C 

SEE  IF  A trajectory  IS  COMPLETED 
C 

IBB  IF  (LASTSN(K)  - I)  200 

C 

c*44*  trajectory  completed 
c 

i90  CALL  THAJCH  (NRTRAJd,  J,K) 


1 

2 

3 

4 

5 


INACTV, 
MSENS  , 
NSNS  , 
NCNDT  , 


LASTSN 

NV 

NSI23 

NRTRUK, 


WLWTM(  i,j,k) 
GO  TO  220 


CWIN  545 
CWIN  550 
CWIN  560 
CWIN  570 
, NRTRAJI I ,J,K)CWIN  5H0 
CWIN  590 
CWIN  591 
CWIN  595 
CWIN  609 
CWIN  610 
CWIN  620 
CWIN  630 
CWIN  640 
CWIN  650 
CWIN  660 

J , K , WUPTMd.J.K),  lOROP  , CSENS  CWIN  670 
NASrC  , N»,  NO,  NORSTR  , NTJ5TR,  CWIN  680 

NTRAJC,  R , TSHAR  , WCAP.  W. 

NRTJC  , N8RTRK,  HEGTME  . FINTMF  , 

NPRNT,  LSTCNV.  NSNS+1,  NSENSR  , 

) 


190,  200 


, BWWNO  , NWARAY 


C 

C***4  has  a VALIO  STRIP  EVER  FALLEN  IN  THE  WINOOW 
C 

200  IF  (NAVLIOd,  J,  k)|  1020,  210,  220 

C 

NO  VALIO  STRIPS.  EXTFNn  WINDOW. 

C 

2ln  13  ■ I ♦ 1 

*F  IK  ,E0.  2)  13  • I - 1 
CALL  CHKOVLdS.NRTRAjll.J.K).  K 


I,  FSTTME,  PSTTHE,  1,  J, 


CWIN  690 
CWIN  700 
CWIN  710 
CWIN  712 
CWIN  720 
CWIN  730 
CWIN  741 
CWIN  730 
CWIN  760 
CWIN  770 
CHIN  780 
CWIN  780 
CWIN  BOO 
CHIN  Bin 
LASTSN, CWIN  M2U 


n 


IDRUP,  TSBAR,  HWWND,  UPWNO,  WI.WTH 
NAVL in,NB T8AJ.  IH  , NENO  , NASTC 
NSNS  . NSNS*l NSENSR 


WUPTM,  NOPENT. 
NPRNT  , NRTJC, 

) 


IT  HAS  MAS  VAl.in  STRIPS  GO  TO  NEXT  OPEN  WINDOW  IF  THERE  IS  ONE 
C 

J » J > 1 

IF  (J  „GT.  NB^ni  J • 1 


CWIN  B30 
CWIN  840 
CWIN  842 
CWiN  86(1 
CWIN  870 
CWIN  880 
CWIN  «8('. 
CwIN  90(1 


720 


IF  U “ IBll.Kn  230.  2*0.  230 

CWIN  910 

c 

CWIN  920 

c«**« 

Mn9F  nPFN  wiNonws.  update  open  window  pointer 

CWIN  930 

c 

CWIN  9*0 

230 

NOPENTn.Kl  » J 

CWIN  990 

RO  TO  170 

CWIN  960 

C 

CWIN  970 

c«**« 

NO  MORE  OPEN  WINDOWS  ON  SENSOR  I. 

CWIN  9B0 

c 

CWIN  990 

2*0 

NOPENTd.KI  ■ 0 

CWINIOOO 

910 

CONTINUE 

CWINlOlU 

900 

CONTINUE 

CWIN1020 

RETURN 

CWIN1030 

C 

CWIN10*0 

c**** 

ERROR  MESSAGES 

CWINIOSO 

c 

CWINI060 

1000 

WRITE(NPRNT.IO)  I .IDROPd) 

CWIN1070 

10 

FORMATdSHO***  ERROR  210  ,21101 

CWINIOHO 

CAU,  EXIT 

CWINIOWO 

1010 

WRITE(MPRNT,20|  I.  K.  NOPENTd.K) 

CWINUOO 

20 

FORMAT!  ISi^O***  ERROR  220,  3110) 

CWINIUO 

call  EXIT 

CW1N1120 

1020 

WRITE(nprnT.1021  1 I,  J,  K,  NAVLIOd.J.K) 

CWIN1022 

1021 

FORMAT  dSi;0»**  ERROR  230  ,*110) 

CW1N102* 

CALL  EXIT 

CWIN102* 

1 

FORMAT!  IH  , 12,  3X,  F9.3,  3X,  F9.3,  *X,  12,  *X,  13) 

CWIN1130 

FNO 

CW1N11*0 

C HOMTIN*!  CNTTRJ  M,  RERMAHi  9/15/71 

C 

THIS  ROUTIH6  IS  CALLFf*  WHEN  A TRAJECTORV  IS  CONFIRMED.  IT 

determines  if  the  confirmed  trajectory  is  in  fact  a convoy 
trajectory 


c 

c 

c 

c 

c 

c 

c 


subroutine  CNTTRJ  (TMCLOS.  TMOFFN,  K,  BEGTME.  FINTME.  NRTRUK, 

1 NRCNDTf  NSIZ3  . LSTCNV 

DIMENSION  BE6TME(NSIZ3.2)t  FINTMEINSIZ3.2),  NRTRUKINSIZ3,  21, 

I NRCNOTfU,  LSTCNVm 

OBTAIN  PNTR  TO  LAST  CONVOY 

N > LSTCNV(K) 

IF  0 A DETECTION  WAS  MADE  PRIOR 

IF  (N)  400.  400.  90 


CNRJ 
CNRJ 
CNRJ 
CNRJ  40 
CNRJ  50 
CNRJ 
CNRJ 
) CNRJ 
CNRJ 
CNRJ  100 
CNRJ  110 
CNRJ  120 
CNRJ  130 
CNRJ  134 


10 

20 

30 


AO 

70 

80 

90 


IS  WINDOW  ABOVE  CONVOY  STRIP 
no  IF  ITMOPEN  - FINTMEIN.KU  150,  150,  400 


CNRJ  134 

IS  WINDOW  HFLOW  CONVOY  STRIP?  CNRJ  140 
90  IF  ITMCLOS  - BEGTMECN.KH  200,  100,  100  CNRJ  150 

NO.  IS  CONVOY  STRIP  C0MPLETED7CNR J 160 

CNRJ  170 

100  IF  (BEGTME(N,K)  - FINTMEJN,K»)  110,  400  , 150  CNRJ  IBO 

CNRJ  190 
CNRJ  200 
CNRJ  210 
CNRJ  220 
CNRJ  230 
CNRJ  240 
CNRJ  250 
CNRJ  254 
CNRJ  255 
CNRJ  260 
CNRJ  270 
CNRJ  280 
CNRJ  290 
CNRJ  300 
CNRJ  310 
CNRJ  320 
CNRJ  330 
CNRJ  340 
CNRJ  350 


NRCNDTINRTRUK(N,KI)  * 1 

PERMIT  ONLY  1 DETECN/CONVOY 


C***A  CONVOY  IS  DETECTED 
C 

150  NRCNOTINRTRUKIN.KH 
C 

LSTCNV(K)  a 0 
RETURN 
C 

C«»«a  00  TO  examine  THE  PREVIOUS  CONVOY  STRIP 
C 

200  N a N - 1 

IF  (NI220,  210,  220 
210  N a NSIZ3 

220  GO  TO  90 

- ITS  A FALSE  TRAJECTORY 

400  RETURN 

DEBUG  INIT  (NRCNDT) 

END 


CNRJ  360 


o.-!ooooor>r>oooooooooor>oooor>oooor>riooooorioooooor>oooor>or>or>oor> 


SIIBRIHITINIE  r,«ApH  M.  86RPAN  U/ll/71  GRAP  10 

GR4P  20 

THIS  ROUTINE  IS  CAtLEO  (II  WHEN  SETTING  UP  INITAL  GRAPH,  (in  WHEN  GRAP  30 

ANY  OP  THE  CnOROINATE  ARRAYS  FOR  OETECTIONS  OR  FALSE  ALARhS  ARE  GRAP  AO 

EIUEO.  (Ill)  WHEN  AN  IMPULSE  IS  LARGER  IN  TIME  THAN  THE  CURRENT  GRAP  50 

GRAPHS  Y(MAX»,  GRAP  60 


M.  BERMAN  U/ll/71 


AEALSXIIOIMU  - SENSOR  niSIANCE  COORDINATE  FOR  A FALSE  ALARM 


AFALSYI iniMl ) - TIME  COOROINATE  FOR  A FALSE  REARM 


ANY  OF  THE  CnriHOINATE  ARRAYS  FOR  DETECTIONS  OR  FALSE  ALARMS  ARE  GRAP  AO 

FILLFO.  (Ill)  WHEN  AN  IMPULSE  IS  LARGER  IN  TIME  THAN  THE  CURRENT  GRAP  50 

GRAPHS  Y(MAX»,  GRAP  60 

GRAP  80 

DEFINITIONS  FOR  GRAPHING  +++  GRAP  90 

GRAP  100 

AFALSXI lOIMl J - SENSOR  OISIANCE  COOROINATE  FOR  A FALSE  ALARM  GRAP  110 

GRAP  120 

AFALSYI iniMl ) - TIME  COOROINATE  FOR  A FALSE  REARM  GRAP  130 

GRAP  lAO 

OIRPEXI ID1M3)  - X COORDINATE  OF  TRAJ. ■ COMPLETE  M4RKE3.  EAST8DUN0  TRAJ.GRAP  150 

GRAP  160 

OIRPEYI IDIM3)  - TIME  COORDINATE  OF  TRAJ.  COMPLETE  MARK.  6ASTBNI)  TRAJ.  GRAP  170 

GRAP  180 

OIRPWX( I0IM3)  - X COOROINATE  OF  TRAJ.  COMPLETE  MARKER.  WESTBOUND  TRAJ.GRAP  190 

GRAP  200 

OIRPWVI I0IM3)  - TIME  COOROINATE  OF  TRAJ.  COMPLETE  MARK.  WESTBND  TRAJ.  GRAP  210 

GRAP  220 

OISTR  - THE  MAX.  X COORDINATE.  NSENSR  + 1 • GRAP  230 


EASTLYI iniM2>  - TIME  COORD.  FOR  LOWER  WINDOW  OF  EASTBOUND  TRAJ. 


EASTUXI I0IM2 I - SENSOR  COORD.  FOR  UPPER  WINDOW  OF  EASTBOliNO  TRAJ 


EASTUYI I0IM2)  - TIME  COORD.  FOR  UPPER  WINDOW  OF  EASTHOUND  TRAJ. 


GRMIN 


- THE  USER  SPECIFIED  MINUTES  PER  GRAPH. 


GRPMIN 


- THE  MINIMUM  TIME  COORD  FOR  A GRAPH 


CRPMAX 


- THE  MAXIMUM  TIME  COORD  FOR  4 GRAPH 


IDIMl 


I0IM2 


KAGRAF 


KEAST 


XEASTP. 


KFALSE 


KTRK5 


KWEST 


PO|NTX( lOIRl I 


- THE  MAX.  X COORDINATE.  NSENSR  + 1 • GRAP  230 

GRAP  2A0 

EASTLXI I0IM2I  - SENSOR  COORD.  FOR  LOWER  WINDOW  OF  EASTBNO  TRAJ.  GRAP  250 

GRAP  260 

- TIME  COORD.  FOR  LOWER  WINDOW  OF  EASTBOUND  TRAJ.  GRAP  270 

GRAP  280 

- SENSOR  COORO.  FOR  UPPER  WINDOW  OF  EASTBOliNO  TRAJ  GRAP  290 

GRAP  300 

- TIME  COORO.  FOR  UPPER  WINDOW  OF  EASTBOUND  TRAJ.  GRAP  310 

GRAP  320 

- THE  USER  SPECIFIED  MINUTES  PER  GRAPH.  GRAp  330 

GRAP  3A0 

- THE  MINIMUM  TIME  COORO  FOR  A GRAPH  GRAP  350 

GRAP  360 

- THE  MAXIMUM  TIME  COORD  FOR  4 GRAPH  GRAP  370 

GRAP  380 

- THE  DIMENSION  OF  THE  AFALS  AND  POINT  ARRAYS.  I SET  IN  GRAP  390 

(THE  MAINGRAP  AOO 

- THE  DIMENSION  OF  THE  EAST  AND  WEST  ARRAYS.  |RTN.  GRAP  AID 

GRAP  A20 

- USER  GRAPH  plotting  CONTROL.  0 - NO  PLOT.  1 - PLOT  GRAP  A2A 

GRAP  A25 

- COUNTS  THE  ENTRIES  IN  THE  EAST  ARRAYS.  GRAP  A30 

GRAP  AAO 

- COUNTS  the  ENTRIES  IN  THE  OIRPE  ARRAYS.  GRAP  A50 

GRAP  A60 

- COUNTS  THE  ENTRIES  IN  THE  AFALS  ARRAYS  GRAP  A70 

GRAP  AhO 

- COUNTS  THE  ENTRIES  IN  THE  POINT  ARRAYS.  GRAP  A90 

GRAP  500 

- COUNTS  THE  ENTRIES  IN  THE  WEST  ARRAYS  GRAP  510 

GRAP  520 

- COUNTS  THE  ENTRIES  IN  THE  DIRPW  ARRAYS  GRAP  530 

GRAP  5A0 

- SENSOR  C0R0IN4TE  OF  A DETECTION  OR  MID-POINT  PASSAGE  GRAP  550 


- USER  GRAPH  plotting  CONTROL.  0 - NO  PLOT.  1 - PLOT 


- COUNTS  THE  ENTRIES  IN  THE  EAST  ARRAYS. 


- COUNTS  THE  ENTRIES  IN  THE  OIRPE  ARRAYS. 


- COUNTS  THE  ENTRIES  IN  THE  AFALS  ARRAYS 


- COUNTS  THE  ENTRIES  IN  THE  POINT  ARRAYS. 


- COUNTS  THE  ENTRIES  IN  THE  WEST  ARRAYS 


- COUNTS  THE  ENTRIES  IN  THE  DIRPW  ARRAYS 
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t 

GRAP 

560 

c 

c 

POINTY ( 

lOIRXS  - 

TIME  CnilROINaTE  OF  A OETECT-ION  OR  MlO-POlNT  PASSAGE 

GRAP 

GRAP 

570 

5R0 

c 

XESTLXI 

iniR2)  - 

1 SEE 

GRAP 

5R0 

c 

westlyi 

I0IR2)  “ 

1 THE 

GRAP 

600 

c 

WESTOXi 

iniR2)  - 

1 EAST 

GRAP 

6X0 

c 

c 

WEGTIIYI 

!niR2)  - 

) neFINlTIONS 

GRAP 

GRAP 

620 

650 

SIIBRnilTIMP  GRAPH  (ISWTCH,  TIME.NPRNT)  GRAP  660 

CnMHQN/GR APHS/  DISTR  , GRMIN  , GRPMAX.  GRPHIN,  IlMMl  t IDIM2  . 

1 KAGRAF,  KFAST  , KFASTR,  KFALSF,  KTRKS  , KWFST  t KWESTR  , 

A M0IM3  , M0IM4  , M6A!i,T  , HFASTR,  MFALS6.  MTRKS  t MWFST  , 

B MWFSTHf  NO'RINI).  NHOIIIT,  K.EAST1,  MEaSTX,  KWESTI*  HWESTl, 

2 Z(200),  AFALSX(?no),  AFALSY(200|,  OIRPEXI  25),  DIRPEYI  251, 

3 OlRPWXl  25),  OIRPWY)  251,  EASTUXUSO),  EASTLY(150), 

A EASTUXnSO),  EASTlIVdSO),  P0!HTX(200),  POINTY  I 200  ) , 

5 WESTuX(150),  HESTLY(150),  '/JESTUX 1X50 ) , H6STUY(X50) 


6 

dL( 50),TAFLSX( XOO) , TAFLSY! XOO) , 

TDRPEX(  15), 

TOKPEY( 

15), 

7 

TORPWXI  15),  TORPWYI  15), 

TESTLXI  T5), 

TESTLY( 

75)  , 

fl 

TESTUXI  75),  TESTUYC  75), 

TPUNTX ( XOO) , 

TPIJNTY(  100)  , 

9 

TWSTLXt  75),  TWSTLYI  75), 

TWSTIIXI  75), 

TWSTUYI 

75) 

C 

GRAP 

670 

C’PPP*  IS  IT  FOR  ITIAt,  GRAPH  SETUP  ONLY  ? 

GRAP 

680 

C 

GRAP 

690 

IF  (ISWTCH)  XOO,  XOO,  600 

GRAP 

700 

C 

GRAP 

7X0 

N(U 

plot  POINTS 

GRAP 

720 

c 

CHECK  FOR 

ARRAY  ERRORS 

GRAP 

730 

100 

IF  (KWEST  - I0IM2)  XXO,  no,  1000 

GRAP 

7*0 

no 

IF  (KEaST  - 10IM2)  120,  120,  1000 

GRAP 

750 

c 

GRAP 

760 

r,***p  PI. (IT 

TRUCKS  FIRST,  USING  + SIGN.  (FOR  ACTUAL  DATA  ALL  DETECTIONS 

GRAP 

770 

t 

WILL 

RE  IN  THIS  ARRAY) 

GRAP 

780 

X20 

IF  (KTRKS)  1*0.  1*0,  130 

GRAP 

78* 

X30  CALL 

S6TSMG  (Z,  55,  0.0) 

GRAP 

790 

CAUL 

SFTSMG  (7,  53,  .75) 

GRAP 

792 

CALL 

SETSMG  (Z,  R*.  XH+) 

GRAP 

800 

IF  (NIIWIMO)  X37,  X3A,  X37 

GRAP 

802 

X3A  CALL 

SETSMG  (7,  55,  2.0  ) 

GRAP 

HO* 

CALL 

SETSMG  (7,  R*,  1H3) 

GRAP 

806 

X37  CALL 

POINTG  (I,, KTRKS,  POINTY,  POINTX) 

GRAP 

8X0 

KTRKS  » 0 

GRAP 

820 

c 

GRAP 

8*0 

pi_ni 

FALSE  ALARMS 

GRAP 

850 

C 

GRAP 

860 

1*0 

IF  (KFA1.SE)  160,  160,  150 

GRAP 

870 

X50  CALL 

SETSMG  (Z,  55,  2.0) 

GRAP 

8H0 

CALL 

SETSMG  (Z,  53,  .75) 

GRAP 

882 

CALL 

SETSMG  (7,  RA,  1H3I 

GRAP 

890 

CALL 

POINTG  (7,  KEALSE.  AFALSY,  AFALSX) 

GRAP 

900 

KFALSE  ■ 0 

GRAi> 

910 

C***#  Pi.riT 

WINOWS 

GRAP 

920 

C 

EAST  FIRST 

- UPPER 

WIND 

GRAP 

930 

160 

IE  (KEAST)  175,  175.  XTO 

GRAP 

9',(l 

X70  CALL 

SETSMG  (7,  55,  X.O) 

GRAP 

950 

CALL 

5FTSMG  (7,  53,  I.*') 

GRAP 

982 

CALL 

SETSMG  (/.  n*,  1H( ) 

GRAP 

9M'i 

I 


t . :f?'x*7,  'j»»^vr'; 


c 

c**** 

c 

c 

c***» 

r, 

300 

310 

3?0 


"92“ 


CALL  PniMTC,  (Z,  KFAST,  FASTUV,  FASTDX) 
KFAST  * 0 


LOWER  wnonw 


175 

177 


IF  (KEASTl) 
CALL  SFTSMC,  (Z, 
CALL  PniNTG  IZ, 


180, 1R0.177 
PA,  IH)) 

KEASTl, EASILY,  EASTLX) 


KEASTl  » 0 


NOW  WEST  - OPPER  WINDOW 


180 

190 


190 


CALL 

CALL 

CALL 

CALL 


195 


IF  (KWESTl  195,  195, 

SETSMC,  (Z.  RA,  IHL) 

SETSMC.  (Z,  53,  1.5) 

SETSMC,  (Z.  55,  2.0) 

POINTC,  (Z,  KweST,  weSTOV,  WESTUX) 
KWEST  a 0 

IF  (KWESTl)  200,  200,  197 


LOWER  WINDOW 


197 


CALL  SETSMC,  (Z.  RA,  1H>) 

CALL  SETSMC,  (Z,  55,  0.0) 

CALL  POINTG  (Z,  KWESTl, WESTLY, 
KWESTl  a 0 


WESTLX) 


C 

C**** 

C 

200 

210 


PLOT  TRAJECTORY  CONFIRMAION  MARKS  (<-) 


WEST  first 


210 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


IF  (KWESTR)  220,  220 
SFTSMGIZ,  55,  2.0) 

SETSMC.  (Z.  53,  1,5) 
SETSMC,(Z,  «A,  IHZ) 

SETSMC,  (Z,  5A,  90.) 
POINTGIZ,  KWESTR,  OIRPWY, 
SETSMC,  (Z,  5A,  0.) 

KWESTR  ■ 0 


OIRPWX) 


EAST  NEXT 


220 

230 


230 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


IF  (KEASTR)  300,  300 
SFTSMGIZ,  55,  2.0) 

SETSMC,  (Z,  S'*.  1.5) 

SETSMGtZ,  SA,  IHV) 

SETSMC,  ( Z , 5A,  90.  ) 
POI\TC,(Z,  KEASTR,  OIRPEY, 
SETSMC,  (Z,  5A,  0.) 

KEASTR  » Q 


OIRPEX ) 


IF  TIME  EXCEEDS  Y(MAX)  PRINT  GRAPH,  ADVANCE  TO  NEXT  GRAPH 


transfer  overtimes 


IF 

IF 


(GRPMAX  + GRMIN  - TIME) 
(NWOlllT)  320.  500,  320 
NWC'UIT  » 0 


320,  320,  310 


GRPMIN 

a GRPMAX 

GRPMAX 

« GRPMAX 

, C.R  H I N 

CALL 

PAGEG  ( Z 

, 0,  1, 

1 ) 

CALL 

TRNSER  ( 

MEAST  , 

K F A I T , 

EASTUX, 

EASTOY, 

TESTIJX, 

TESTOY ) 

call 

TRNSER  ( 

ME  AST  1 . 

KEASTl , 

EASTLX , 

EASILY, 

TESTLX, 

TESTLY ) 

CALL 

TBNSFR  ( 

MviPST  , 

KWEST  , 

•WESTIIX, 

WESrilY. 

Tws  rux , 

rwSTIIY  ) 

call 

TRNSER  1 

MWFST  1 , 

KWESTl , 

ST  t X * 

WESTLY, 

TwsrLx , 

TWSn.Y) 

CALL 

IRf"'’, ' ■'  ( 

MTMKS  , 

K T R K S , 

MOIMTX, 

prjIhTY, 

TPONTX. 

TOOJ 1 Y ) 

9R0 

982 

990 

99A 


GRAP 
GRAP 
GRAP 
GRAP 
GRAP 1000 
GRAPIC'IO 
GRAP1020 
GRAP 1030 
GRAPIOAO 
GRAP1050 
GRAP1052 
GRAP 1060 
GRAP1062 
GRAP1072 
GRAPIOTA 
GRAP1090 
GRAPl  100 
GRAPillO 
GRAPl 120 
GRAP1130 
GRAPl lAO 
GRAP1150 
GRAP1160 
GRAP1170 
GRAPl  1.3C 
r,RAP1182 
GRAP1200 
GRAP1202 
GRAP1210 
6RAP1212 
GKAP1220 
GRAP  12 30 
GRAP12A0 
6RAP1250 
GRAP1262 
GRAP1270 
GRAP12R2 
GRAP12R0 
GRAP1272 
GRAP 1290 
GKAP1300 
GRAP13 in 
GRAP1320 
GRAP1327 
CRAP1328 
GRAP1329 
GRAP1330 
&RAP133? 
GRAP13'3A 
GRAP 1336 
GRAE'13  3h 
GRAPl 3A0 
GRAP 1 346 
GRAP134R 
(,RAPnSO 
(IRAP  1362 
GKAPl  36'. 


93 


CALL  mMSFR  I MFACSF.  KFALSE,  AFALSX,  AFALSV.  TAFLSX,  TAFLSY)  GHAP1^5<> 

CAU.  TRnSFR  ( M6ASTR,  KFASTR,  OIRPFX,  OIRPEY,  TORPcx,  mKPEY)  GKAP13bP 

CALL  TRNSFR  ( MWESTR,  KWtSTR,  OIRPWX,  OIRFiyY,  IDHPWX,  TORPWY)  GHAP136(^ 

SETUP  NEW  GRAPH  GRAPl37ft 

CALL  SURJ6G  (Z.  GRPMAX,  0.,  GRPMIN,  1.0»  GRAP13R0 

CALL  nRJCTG  (Z.  .If  .1,  1.2333,  ,9)  GRAP13R^ 

CALL  SETSMG  (Z,  100,  3.0)  GKAP13RR 

CALL  GRIOG  (Z,  - 5.0.  0.0,  0,  0)  GRAP13W2 

CALL  SETSMG  (Z,  14,  0.0)  GRAP1396 

CALL  SETSMG  (Z,  46,  90.)  GRAP1400 

GRAP1404 

J ■ 0 GRAP140fl 

00  410  I • 1,  11  GRAP1412 

SPEC  ■ GRPMAX  - J *(GRPMAX  - GRPMIN)/10.  GRAP1416 

J ■ J * 1 GRAP1420 

CALL  NOMHRG  (Z,  SPEC,  -.06,  4.0,  SPEC)  GRAP1424 

X -6RPMIN  - GRMIN/100.  6RAP142FI 

on  420  I « 1,  50  6RAP1432 

CALL  NDMBRG  <2,  X,  TL(I),  2,  1)  GRAP1436 

IF  )TL(n  .GT.  .949)  GO  TO  430  6RAP1440 

CONTINUE  GRAP1444 

X ■ GRPMIN  - 3.  4 GRMIN/100.  GRAP1443 

CALL  LEGNOG  (Z,  X,  .42,  13,  13HSENS0R  NUMBER)  6RAP1452 

CALL  SeiSMG  (Z,  46,  0.)  GRAP1456 

X ■ GRPMAX  - GRMIN  4 .4  GRAP1460 

CALL  LFGNOG  (Z,  X.  -.07,11  .IIHTIME  (MIN,))  0RAP1464 

RETURN  GRAP)470 

CALL  HOOESG  (Z,0)  GRAP1471 

GO  TO  400  GRAP1472 

WR|TE(NPRNT,1010)  GRAP1472 

format  (4QH04»4**  error  117  : DECREASE  THE  NO.  OF  MIN. /GRAPH  ) GRAP1474 
CALL  EXIT  GRAP1476 

FNO  GRAP147S> 


ooo  viooooooooooonoooo 


*7''’?WsniVyf-?SJW\7^\^s>V^VSt*"-^5^«r.»tT^‘»^vw^nnT’JV7'-T.-,,f  v ?•  r. rr,*-^«»^r,in^rnj-^,-:."  ■ •■••, 
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unuTiiviE  Rf=An 


M.  HfiRMAN  9/14/71 


THIS  ROtlTlNF  BPAHS  THE  TIME 
WHICH  IT  tJCCURS.  EfiP  use  with 
crjNvnv  starts  thru  the  striwr 
A CHNVnv  HF^INS  AMO  leaves  an 

these  AoniTinwAL  reads  permit 

true  TRAJECTfIRieS.  WHEN  THE  PROGRAM  IS  USED  SOLEY 
THIS  RfUITlNE  SHOULD  ONLY  CONTAIN  DETECTION  READS. 


OF  A DETECTION  AND  THE  SENSOR  NO.  ON 
THE  CONVOY  SIMULATOR  IT  READS  WHEN  A 
AND  WHEN  IT  LEAVES.  AI.SO  THE  TIMES 
OPERATING  SENSORS  SPHERE  OP  INFLU6NC 
KEEPING  STATISTICS  ON  CONVOYS  AND 

AS  A LOGIC  EOX 


SUBROUTINE  REAOIREGTKE,  FINTME.  NRTRUK,  NRCGEN.  NSIZ3.  NDISK. 
■1  NRCNOT,  NPRNT  . 1S6NS  , TIME  , NPRTRK , NTR AJC < 
2 LSTCNV.LASTSN.NWARAY,  W.NB.  NSENSR,  NSNS 


READ 

10 

HEAD 

20 

READ 

30 

READ 

40 

READ 

50 

E, 

• READ 

60 

READ 

70 

READ 

80 

READ 

90 

READ 

100 

READ 

110 

READ 

120 

) 

READ 

122 

READ 

130 

COMMON/GRAPHS/  OISTR 
KAGRAF,  KEAST 
MOIM3  . M0IM4  , 
MWESTR,  NOWIND. 


. GRMIN  , GRPMAX,  GRPMIN,  lOIMl 
, KEASTR,  KFALSE.  KTRKS  , KWEST 
HEAST  , MEASTR,  MFALSe,  MTRKS  . 
NWOUIT,  KEASTl,  MEASTl,  KWESTl, 


2(200)t 


AFALSX(200», 
OIRPWXI  25). 
EASTUXI ISO) , 
WESTLXI 150) . 


AFALSYI200). 
OIHPWYI  25), 
EASTUYI 150) , 
WfeSTLYI ISO)  , 


OIRPEXI  25), 
EASTLXdSO), 
P01NTXI200), 
WfeSTUXI 150). 


,Tl<S0),TAFLSX(100),  TAFLSY(IOO).  TORPEXI  15), 

TDRPWXI  15),  TOHPWYi  15),  TESTLXI  75), 

TESTUXI  75),  TESTOY)  75),  TPONTXUOO), 

TWSTLX)  75),  TWSTUYI  75).  TWSTUXI  75), 

DIMENSION  BEGTME(NSIZ3,2), 

NRCGEN) 1)  , 


IDIM2  , 
KWESTR  , 
MWEST  , 
MWESTl, 
DIRPEY)  25). 
EASTLYI 150)  , 
POINTY(200) , 
WESrOYI 150) 
TDRPEYf  15), 
TESTLYI  75), 
TPONTYI 100) , 
TNRTIJY)  75) 


FINTME(NS!Z3,  2),  NRTRUK ) NS  I Z 3 . 2), 
NRCNOT)!)  ,LASTSN)1)  ,LSTCNV)1),  W(l 


EACH  RECORD  CONTAINS  5 WORDS! 


OR  )fi)  NO,  OF  TRUCKS  IN  THE  CONVOY 


WORD  1 - TIME 
WORD  2 - )A)SENS0R  no. 

WORD  3 - CODE 

1 - CONVOY  STARTS  thru  SENSOR  FIELD 

2 - CONVOY  completes  SENSOR  FIELD 

3 - false  alarm  detection 

4 - MIO-PniNT  PASS  (FIRST  TRUCK) 

5 - MID-POINT  PASS  (LAST  TRUCK) 

6 - TRUCK  DFTECTinr) 

7 - FIRST  TRUCK  STARTS  THRU  A SENSOR 
R - LAST  TRUCK  LEAVES  A SENSOR 

9 - INDICATES  END  OF  FILE 
WORD  4 - CONVOY  DIRFCTION 
WORD  5 - CONVOY  NOMBFR 

90  REaniNDISK)  TIME,  ISENS,  ICOOE,  K,  NRCNV 

GO  TO  (400,  500,  200,  300,  300,  100,  600,  700,  900).  ICODE 

NORMAL  TRUCK  DETECTION 

100  IF  IKAGRAF  .EO.  0 ) RETURN 

GRAPH  DETECTION 

IF  (NWOUIT)  105,  103,  105 
103  IF  (GRPMAX  ♦ GRMIN  - TIME)  105,  105,  110 
105  assign  120  T(J  IRET 

GO  TO  BOO 


READ 
) RE  AD 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 


140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

37P 

3A0 

3«l 

381 

3H2 

383 


IP  (KTRKS  - tniMU  120,  105,  105 

IP  (TiMp  .r.e.  ORPMAX)  r,n  to  izs 
KTRKS  ■ KTRKS  •*•  1 
POINTX(KTRKS)  ■ TLUSEMSI 
PniNTY(KTRKS>  - TIME 
RETURN 

MTRKS  ■ “TRKS  ■*■  1 
TPONTXIMTRKS)  ■ TL(ISENS) 
fPONTY (MTRKS)  » TIME 
IF  (MTRKS  .GE.  M0IM5)  NWODIT  • 5 
RETURN 

FAI.se  alarm  DETECTION 
IF  (KAORAF  .EO.  0 ) RETURN 

GRAPH  DETECTION 

IF  (NWOU'TI  205,  20S,  205 
IF  (ORPMAX  + GRMIN  - TIME)  205,205,  210 
assign  220  TCI  IRET 
GO  TO  ROO 

IF  (KFAUSE  - iniMl)  220,  205,  205 
IF  (TIME  ,GE.  GRPMAX)  GO  TO  225 
KFALSE  » KFALSE  + 1 
AFALSX(KFALSE)  ■ TUISENS) 

AFALSY(KFALSE)  • TIME 
RETURN 

MFAlSE  ■ MFALSE  + I 
TAFLSX(MFALSE > = TL(ISENS) 

TAFLSY(MFALSE I » TIME 
IF  (MFALSE  ,GE.  MDIM3)NW0UIT  » 6 

return 

Min  POINT  PASS 

IFMKAGRAF  .EO.  0)  .OR.  (NOWINO  .EO,  0))  GO  TO  90 

GRAPH  MID-POINT 

IF  (NWDUIT)  305,  303,  305 
IF  (GRPMAX  + GRMIN  - TIME)  305,  305,  310 
ASSIGN  320  TO  IRET 
GO  TO  BOO 

IF  (KTR.<S  - lOIMll  320,  305,  305 
IF  (K  - 2 • ) 330,  3A0,  330 

RSENSR  » TL(ISENS)  + .01 
GO  TO  350 

RSENSR  - TL(  ISENS)  - .01 
IF  (TIME  ,GE.  GRPMAX)  GO  TO  370 
KTRKS  ■ KTRKS  ♦ I 
POINTXI KIRKS)  • RSENSR 
POINTY(KTRKS)  ■ TIME 


IF  (TIME  ,GE. 
KTRKS  ■ KTRKS 
POINTX(KIRKS) 
POINTY(KTRKS) 
GO  TO  90 
MTRKS  ■ MTRKS 
TPONTX(MTRKS) 
TPONTY( MTRKS) 


RSENSR 

TIME 


IF  (MTRKS  .GE.  M0IM3)  NWOOIT 
GO  TO  90 

CONVOY  ENTERS  THE  STRING 


READ 

HEAD 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

read 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ' 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 

READ 


Ijtf  w{*th»iV.Vn^»-i.L.rl  V ^ V.!.  7 ^ u .^xi'  ;a  Ci;.^;y 


-96- 


1NC».  CNVS  6t-N6«ATeO 
NBR.  TRUCKS  IN  CONV 


IS  IT  THE  LAST  SENSOR 
VES.  STORE  BEGIN  TIME 

UPOTE  LAST  CNVV  POINTER 

IS  IT  THE  LAST  SENSOR 


♦00  write(nprnt,ii  nrcnv»  k,  ti*»p.  ispns 

NRCGENt ISENS)  > NRCGENI ISENS)  4 1 

N • MOOINRCNV,  NSIZ3) 

IE  INI  1000,  410,  *20 
♦10  N - NSIZ3 

♦20  NRTRIIK(N,K»  ■ ISENS 

60  TO  60 

C**«*  CONVOV  leaves  STRING 
C 

300  WRITEINPRNT,!)  nrcnv,  k,  time 
60  TO  90 
C 

c*«««  CONVOY  starts  thru  a SENSOR 
C 

ftOO  IF  (ISENS  - LASTSNIK)  )90,  610,  90 
C 

610  N • MOniNRCNV,  NS123I 

IE  (N»  1000,  620,  630 
620  N « NSIZ3 

630  BEGTMEIN.K)  ■ TIME 
C 

LSTCNVIKI  » N 
60  TO  90 
C 

C«***  CONVOY  completes  a SENSOR 
C 

TOO  IF  (ISENS  - LASTSN(KI)  90,  710,  90 

TIO  N > M00( NRCNV,  NSIZ3J 

IF  (N)  1000,  720,  730 
720  N • NSIZ3 

730  FINTME(N,K)  ■ TIME 
GO  TO  90 
C 

C***»  plot  points  IE  USER  PERMITS 
C 

BOO  CALL  graph  (0  , TIME,  NPRNTl 
60  TO  IRET,  (120,  220,  320» 

C 

C**P*  SIMULATION  COMPLETE 
C 

900  IE  (KAGMAF)  910,  920,  910 

910  IF  (TIME  ,GT.  GRPMAX^  NWOUIT  ■ 10 

919  CALL  graph  (0,  TIME,  nprnT) 

KAOO  ■ KEA5T  ♦ KEASTH  ♦ KFALSE  KTRKS  ♦ KWEST  KWESTR 
1 ♦ KFASTl  ♦ KWFSTl 

IF  (KAOO  .GT,  0 ) GO  TO  919 

call  EXITG(ZI 

920  CAl.L  SUMRYINRTRUK,  NRCGEN,  NSIZ3,  NRCMOT.  NPRNT,  NBRTRK,  NTHAJC, 

1 W , NH  , NSENSR  , NSNS  , NWARAY  I 

C 

c*»»*  MESSAGES  r.  FORMATS 

c 

1000  WRITEINPRNT,  1001)  N.  nrcnv,  TIME 

1001  FfIRMATI  lAHOO*  ERROR  XOO  , 2110,  F9,3) 

CALL  EXIT 

I EORMATIIH  , ROX,  16,  5X,  12,  3X,  E9.3.  3X,  13  ) 

ENO 


READ  520 
REAO  530 
REAO  5*0 
REAO  550 
REAO  560 
REAO  570 
REAO  5R0 
REAO  590 
REAO  600 
READ  630 
REAO  6*0 
REAO  .650 
READ  660 
READ  670 
REAO  6«0 
READ  690 
REAO  700 
HEAD  710 
READ  720 
READ  730 
REAO  7*0 
REAO  750 
REAO  760 
READ  770 
REAO  772 
REAO  77* 
READ  7RP 
REAO  790 
REAO  BOO 
REAO  BIO 
REAO  820 
REAO  B30 
READ  8*0 
READ  850 
REAO  860 
REAO  870 
READ  871 
READ  872 
READ  873 
READ  876 
READ  87m 
READ  880 
REAO  890 
REAO  900 
REAO  902 
REAO  90* 
READ  906 
READ  907 
READ  907 
READ  907 
REAO  908 
READ  910 
REAO  920 
REAO  930 
REAO  9*0 
READ  950 
REAO  960 

HEAD  970 
REAO  980 
READ  990 
REAOIOOO 


i'lriiTiilTliiiiliiliiTl'iiliM 
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, suhroutinF 

SETRAv 

23  NOV 

1971 

SRAY 

10 

SRAV 

20 

TH(S  RmiTlNE 

IS  USER  TO 

SET  THE  ARRAYS  EllR  PRINTING 

wiNonws. 

SRAY 

30 

SRAY 

40 

SUBROUTINE 

SETRAV  (K, 

I,  WUPTM,  WLWTM  ) 

SRAY 

50 

cummon/graphs/  oistr 

K6AST 
MOIM4  , 
NOW  I NO t 


KAGRAPi 
MD1N3  , 
MW6STR, 
Z«200). 


APalSX(200I , 
OIRPWXJ  25(. 
PASTMXaso). 
W6STLX<150), 


GAMIN  . GRPMAXf  GHPMIN,  lOlMl 
« XeASTR,  KFALSe,  KTRKS  f KW6ST 
MEAST  , MEASTR,  MFALSE,  MTRXS  , 
NWODIT*  KEASTlf  MEASTl,  KwESTlf 


AFALSV(?OOI , 
niAPWyi  25). 
EASTUYI 150) ♦ 
WESTl.Y(150), 


DIRPEXI  25), 
EASILXI 150)  , 
P0tNTX(200), 
WESTUXI 150) , 


,TU50),TAFLSX(100), 
TORPWXi  15), 
TESTUXI  75). 
TWSTl.XI  75), 


(miiptm  .ge.  grpmax)  go 

KWES7  • KWFST  ♦ I 
WFSTUX(KWFST)  • TU  !) 
WESTDYI KWFST)  « WUPTM 
IF  (W).WTM  ,GE.  GRPMAX)  Go 
KH6ST1  • 
WESTLXIKWESTI ) 
WESTLVlKWFSTl ) 

RETURN 

tv)stux(mmest)  » Turn 

TWSTUY INWEST)  ■ WUPTM 
IF  (MWEST  .GE.  (M01M4 
GO  TO  25 
MWESTl  ■ 

IF  IMWeSTl  ,GE. 

RETURN 


TAFLSV(IOO), 
TORPWYI  15), 
TESTUYI  75), 
TWSTLYI  751, 


TDRPEXI  15), 
TESTLXI  75), 
TPUNTXtlOO) , 
TWSTlJXI  75), 


lniM2  , 
KWESTA  , 
MWEST  , 
MWESTl. 
niHPEVI  2-5), 
EASTLYI 150), 
POINTYCaOO), 
WESTUYI 150) 
TDRPEYI  15), 
TESTLYI  75), 
TP(INTY)IOO)  , 
TWSTUYI  75) 


WESTHOUNO 


KWESTl 
• TUI) 
■ WLWTM 


NWOUIT«l 


NWOUIT-2 


EASTBOUND 


SR  AY 

SRAV 

SRAV 

SRAY 

SHAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAV 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 

SRAY 


70 

80 

90 

loo 
110 
120 
130 
UO 
150 
160 
170 
180 
190 
200 
210 
212 
220 
230 
240 
250 
252 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
3M0 
390 
392 
400 
4 1<I 

420 


SRAY  430 
SRAY  432 
SRAY  440 
SRAY  450 


~ V [ Hi  'liri 
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c 

Stlf*nv  ROIITIME  M,  BERMAN  t/ZT/Tl 

SUMY 

10 

c 

SUMY 

20 

SimROllTlME  SUMRY  (NRTRIIK,  NRCOE^.  NS123  t NRCNOTt  NORMT  « 

NBRTRK, 

SUMY 

30 

1 NTRAJC.  W , NB  » NSENSR»  NSNS  f 

SUMY 

32 

2 NWARAY 

)SUMY 

33 

c 

SUMY 

40 

COMMON/XTRA/  TIMIlwrH  50),  T1MFIMI50),  WPR IME 1 1 5, 150 ) , FCTSEN, 

RHO 

1 , NA(IOO)  .JVALMMlOO),  JASTMN(IOO) 

OIMENSIOM  NRTRDK(NSI23.2),  MRCGENJl).  NRCNDT(l),  W (NSNS, NWARAY ) , 

SUMY 

50 

1 SIJMX(50),  SUHXX(50),  AVGM(50)  , ST0(5O) 

SUMY 

50 

c 

SUMY 

70 

c>»«** 

DETECTION  STATISTICS 

SUMY 

80 

c 

SUMY 

90 

WRlTECNPRNT.l) 

SUMY 

100 

ITOTl  « 0 

SUMY 

110 

IT0T2  ■ 0 

SUMY 

120 

DO  20  I » 1,  NRRTRK 

SUMY 

130 

10 

ITOTl  ■ ITOTl  ♦ NRCGENI I ) 

SUMY 

150 

IT0T2  ■ IT0T2  + NRCNOTII) 

SUMY 

160 

20 

WRITE(NPRNT,2)  I,  NRCGEN(I),  NRCNOT(l) 

SUMY 

170 

c 

TOTALS 

SUMY 

IBO 

30 

WRITE(NPRNT,3)  ITOTl,  IT0T2 

SUMY 

190 

c 

SUMY 

200 

IPHANT  - NTRAJC  - 1T0T2 

SUMY 

210 

WRITE(NPRNT,4)  IPHANT,  NTRAJC 

SUMV 

220 

ISET  - 1 

SUMY 

234 

GO  TO  34 

SUMV 

234 

c 

SUMY 

230 

c**** 

PRINT  WEIGHT  ARRAY  AND  GET  MEAN  AND  VARIANCE  FOR  EACH  SENSOR 

SUMY 

240 

c 

SUMY 

250 

32 

ISET  - 0 

SUMR 

252 

WR  ITE(MPRNT,9) 

SUMY 

253 

34 

on  35  I ■ 1,  NSENSR 

SUMY 

254 

SUMX! I ) ■ 0.0 

SUMY 

256 

3S 

SUMXX( I ) • 0,0 

SUMY 

258 

NT  - 1 

SUMY 

260 

NP  ■ 15 

SUMY 

270 

40 

IF  (NP  ,GT.  NSENSR)  Np  a NSENSR 

SUMY 

280 

WRITE(NPRNT,5 ) (1,1-  NT,  NP  ) 

SUMY 

290 

JOIM  a NTRAJC/NH 

SUMY 

300 

DO  60  J ■ 1,  JOIN 

SUMY 

310 

WRITE(NPRNT,6)J,(H(I,J),  I - NT  , NP  ) 

SUMY 

320 

nn  60  I - NT,  NP 

SUMY 

330 

SMMX( I ) > SUMX( I ) f W(I ,J) 

SUMV 

340 

SIIMXX(I)  a SHMXX(I)  *■  W(I,J)  * W(I,J) 

SUMV 

350 

60 

W(  I,J)  • WPRIME) I,J) 

SUMY 

355 

c 

CALCULATE  MEAN 

AND 

VAR 

SUMY 

360 

DO  TO  I -NT,  NP 

SUMY 

370 

4VGN(  I I a StlMX(  I )/JDlM 

SUMY 

3H0 

70 

STD(I)  ■(((  JDIM*SIIMXX(  I)  )-  (SUMX(  I )*SDMX(  I ) ) )/ 

SUMY 

390 

1 

( JOIM*( jniM« 1 ) ))  P*  .5 

SUMY 

400 

WRITE(NPRNT,  7)  (AVGN(K),  < ■ NT,  NP  ) 

SUMV 

410 

WRITE(NPRNT,  R)  (STD(L),  L ■ NT,  NP ) 

SUMY 

414 

c 

SUMY 

420 

IF  ( NP  ,GE.  NSENSR)  GO  TO  HO 

SUMY 

430 

• NT  a NP  ♦ 1 

SUMV 

4 to 
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NP  ■ MP  4.  IS 

r,n  Tt>  40 

«0  !F  ( ISfiT  .PO.  I » R(1  TO  32 
WRITElNPKNT.in 


SUKY  450 
SUMY  4h0 
SUMY  4«>4 
SUMY  4ft5 


TEMPORARY  FOR  PRINTINK  AVERAGE  ASTI'S  C VALID 

WR!TEtNPRNT,13) 
no  92  I « 1,  NSENSR 

AVGAST  ■ ELOAK  JASTMM(  n I/FLOATUOIM) 

AWGVAL  ■ FL0AT(  JVALMM(  I ) )/FLUATUDIM) 

92  WRlTEtNPRNT,14)  I,  AVGYAL.  AVGAST 

CALL  EXIT  SUMY 

100  return  SUMY 

1 FORMATdHl,  20X,  32H4PW  CONVOY  OETECTIUN  SUMMARY  «**  //  15X,  SUMY 

I IIHCONVOY  SIZEf  4X,  13HN0.  GENERATED,  4X  , SUMY 

? 12HNO.  OETFCTEO//)  SUMY 

2 FORMAT<20X,  n,  12X,  14,  13x,  I4J  SUMY 

3 FORMATdZX,  flUTOTALS  :,  14X,  15.  12X,  J5)  SUMY 

4 FORMATtlHO,  12X,15hPHANTOM  TRAJ  « , 13, 19H  TOTAL  CUNPIRMED  « , I6)SUMY 

5 FORMATdHl, 53X,  37h**#  SENSOR  WEIGHTS  BY  TIME  PERIOD  "Piei//  SUMY 

I 12H  TIME  PERIOD,  54X.  6HSENS0R/  ISX,  15112,5X1//)  SUMY 

6 FORMAT!  5X.I3,  4X,  15(F5.3.2X))  SUMY 

7 FORMAT!  RHOMFAN  S , 4X,  15(FA.4,lXd  SUMY 

H FORWATdlMOSTn  06V  : ,IX,  l5(F6.4,lXn  SUMY 

9 FORMAT  (IHO,  20X,  32H( THESE  WEIGHTS  ARE  NOT  SMOOTHED))  SUMY 

II  FORMAT  (IHO,  20X,  2PH(THESE  WEIGHTS  ARE  SMOOTHED)  > SUMY 

13  FORMATdHl ,' SENSOR  ' , 2X  , • AVG.V  AL  I DS ' , 2X,  • AVG.  A ST  I S ’ // ) SUMY 

14  FORMAT!  3X,13,3X,Fl0.3,2X,Fin,3)  SUMY 

ENO  SUMY 


100- 


»OUTINF  TrAJCM 


BERWAM 


this  RIUITINE  IS  CALLED  WHEN  A CUN JECTUREO  TRAJECTORY  IS  CUlStD 
SEE  IF  IT  IS  Ct'NFW^FD.  IF  ir  IS  Then  NE  CHECK  TO  SEE  IF  ENDlKiH 
CONEIRMATKINS  have  been  hade  to  CALCULATE  F^Ew  NEIOmTS  (A  NE»^  TIME 
period  is  STARTED).  HhEN  wEIi'.hTS  ARE  COMPUTED  AMY  HYPO-ACTIVE 
SENSOR  IS  REMOVED  FROM  THE  STRING. 


SOHROUTINE  TRAJCMINrTJ  , MUCEL  . 

1 INACTVf  lASTSM. 

2 MS6NS  . NV 

* W.  NSNS  » NSIZ3  , 

^ NCNDT  , NRTRUK, 

i TVEL  . NWARAY 

NRTJ  - TRAJECTORY  NUMBER 

NRCEL-  trajectory  cell  NO. 

time  - TIME  OF  trajectory  CLOSURE 


K , TIME  , lOROP  , CSFNS  . 
NASTC.  NB  .ND,  NORSTR,  NTjsTR, 


NTKAJC,  R , TSHAR  , 
NRTJC  .NBRTRK,  BEGTMEi 
NPKMT  .LSTCNV,  NSN  , 


COMMON/XTRA/  TIMONOISO),  TIMFlNtSO),  WPR IM6 ( 1 5, ISO ) ♦ 
1 . NA(IOO)  , JVALMNI 100) , JASTMM(IOO) 

COmmon/GRAphS/  niSTR  , GRMIN  , 6RPMAX,  GRPMl.q,  IDlMl 


kR  « RCAP  . TRAJ  no 

ME*  FIMTME.  TRAJ  120 

, NSENSR.F.TRAJ  130 

) TRAJ  13A 

TRAJ  140 
TRAJ  ISO 
TRAJ  no 
TRAJ  170 
TRAJ  IHO 
TRAJ  190 

PCTSEN.  RHO 


» t D I M2 

KAGRAF,  KEAST  , KEASTH,  KFALSE.  KTRKS  , KWEST  . KNESTR  , 
M0IM3  . MDIM4  , M6AST  , MEASTR,  MFALSF.  MTKKS  . MwEST  . 
MWFSTR,  NOvs'lND.  MWOOIT.  KEASTl.  MEaSTI.  KwESTl,  WifFSTl, 
ZI200),  AFALSXI200),  AFALSY(2D0),  OIKPEXI  25).  UIRPEYI  25), 
DIRPMXI  25),  OIRPNYI  25),  EASTLXIISO),  SASTLYIISO), 
EASTUXI 150),  EASTUYI150),  PO I MT X ( 20o ) , P0INTYI2OO), 
weSTLX(150),  WESTLYI150),  WESTUXdSO),  WESTUYI150). 


S TL) 50) ,TAFLSX( 100),  TAFLSYIlOO),  TDRpEXI  15),  TDkPEYI  15), 

f TORPWXI  15),  TDRPWYI  15),  TESTLXI  75),  TESTLYI  75), 

' TESTUXI  75),  TESTUYI  75),  TPO.'JT  X ( 100 ) , TPONTY(IOO), 

> TWSTLXI  75),  TWSTLYI  75),  TWSTUXI  75),  TWSTUYI  75) 

DIMENSION  NASTCINrTJC,  2,  NSNS),  NTJSTR(l),  NORSTR(l), 

t LASTSN(l)  , NVtl),  RID,  INACTV(l),  lUROPIl 

TSHAR(NSN,2),  BEGTME(l),  FIMTME(l),  NCNDT(l), 
NRTRUK(l),  LSTCNV(l)  . T VEL ( NSN, 2 , 2 ) , w ( NSNS .NWARAY  ) 


ndrino 

NAS 

am 

N2 


0 

o 

0.0 

(NTrAJC 


NH)/NB 


C****  count  and  weight  The  AUMISSAHLF  strips  in  the  TRAJECTORY 
C 


DU  100 


NSENSr 


NASTCINRTJ.K,  I ) 
NASTCINRTJ.K, I ) > 


aohsble  strips 
weight  df  strips 

WPRIMEI I,N2) 


C»«««  no  weights  and  no.  of  strips  confirm 

c 

IF  (MAS  - mSFNS)  170,  IID.  110 
IID  IF  (AW  - wr.Ap)  170.  200,  200 


trajectory 


1),  TRAJ  20n 

I DROP!  1) TRAJ  210 
TRAJ  220 
NWARAY ) TRAJ  22? 

TRAJ  230 
TRAJ  240 
TRAJ  250 
TRAJ  250 
TRAJ  264 
TRAJ  270 
TRAJ  2H0 
TRAJ  2N0 
TRAJ  300 
TRAJ  310 
TRAJ  320 
TRAJ  330 
TRAJ  340 
TRAJ  350 
TRAJ  360 
TRAJ  370 
TRAJ  3M0 
TRAJ  3N0 
TRAJ  40(1 


f 


IWTV 


-101- 


l?o 

C 


TRAJ  AlO 
1RAJ  420 


TRAJ^CTflRV  CONPIRKEO 

c 

200  NtRAJC  ■ ntrajc  + 1 

N ■ MflfXNTRAJCtNR) 

IF  IN)  220.  205.  220 
205  N ■ N8 

C SUH  AOM  STRIPS  CONTRIHIITen 

220  DO  210  ( ■ 1 . NSFNSk 

210  NAin  ••  NAin  * nastcinatj.k.ii 

WRITFINPRNT,  1)  TIME.  K.  LASTSNIK) 

c 

(^«««*  SET  GRAPH  OUTPUT 

r, 

IF  I IKAGRAF  ,60.  0)  .OR.  INQWINO  .60.  0)  ) GO  TO  280 
IF  IK  - 2)  225,  230,  225 

225  IF  ITIne  .GE.  GRPMAX)  60  TO  227 

KWESTR  « KWESTR  * 1 
OIRPWXIKWESTR  ) - .<?75 
OIRPWVIKWESTR  ) » TIME 
GO  TO  280 

227  M^ESTR  ■ MWESTR  ♦ 1 

TORPWXIMhESTR  ) ■ .975 
Tf<9pwY|MweSTR  ) a TINE 
GO  Tri  280 

230  IF  (TIMC  .GE.  GrPMAX)  GO  TO  232 

KEASTr  « KEASTR  + 1 
OIRPFXIKFASTR ) ■ .025 
DIRPFVIKFASTR ) « TI^E 
GO  TO  280 

232  MEASTr  ■ MEASTR  + I 

TORPEXI MEASTR  I ■ .025 
TORPEVIMEASTR)  ■ TIME 

280  CALL  CNTTRJITINE  , F , K . HEGTME,  FINTME,  NKTRUK,  NCNDT 

1 NSIZ3  . LSTCNV  ) 

C 

CO***  HAVE  8 TRAJECTORIES  BEEN  CONFIRMED  7 
C 

IF  IN  - NB)  120,  300,  300 
C 

c****  vesi  TIME  PERIOD  IS  COMPLETED.  COMPUTE  NEW  WEIGHTS. 

C 


TRAJ  430 
TRAJ  440 
TRAJ  44? 
TRAJ  *^43 
TRAJ  443 
TRAJ  445 
TRAJ  460 
TRAJ  470 
TRAJ  480 
TRAJ  530 
TRAJ  531 
TRAJ  532 
TRAJ  533 
TRAJ  533 
TRAJ  534 
TRAJ  535 
TRAJ  536 
TRAJ  537 
TRAJ  538 
TRAJ  539 
TRAJ  53A 
TRAJ  53H 
TRAJ  53C 
TRAJ  530 
TRAJ  53E 
TRAJ  53F 
TRAJ  53G 
TRAJ  53H 
TRAJ  531 
TRAJ  53J 
TRAJ  5 3K 
TRAJ  53L 
TRAJ  540 
TRAJ  550 
TRAJ  560 
TRAJ  570 
TRAJ  580 
TRAJ  590 
TRAJ  600 
TRAJ  610 
TRAJ  620 


300  SUMR  ■ 0.0 

N2  ■ N2  ♦ I 

IF  IN2  .GT.  NHARAV)  GO  TO  1080 
WRITEInPRnT,5)  INV(J),  J-l.NSENSRI 
WR|TE|NPRNT,6)  (NAIJ),  J.l.NSENSR) 
310  no  390  1*1,  NSENSR 


3*0 


370 


"IN  ■ 
ifluati 


380 


RATIO  AOM  STRPS  TO 

IF  INVim  370,  360,  370 
"IN  • 0.0 
GO  TO  380 

AMAXlIO.  ,FLOATINAI  1)1*1  AM  IN1U..(1.',(  I FLOAT  (NA  I I ) )/ 

'!«)  )**2)-IFLnATINVI  I ) )/FL0ATI4*N8j  ) ) ) ) ) 

ZERO  VALin  STRIP  CNTR 


TRAJ 

TRAJ 

TRAJ 

TRAJ 

TRAJ 

TRAJ 

VALIDTRAJ 

TRAJ 


TRAJ 

TRAJ 

TRAJ 

TRAJ 

IRAJ 


630 

634 

636 

637 
63H 
640 
720 
722 
724 
726 
730 

740 
7 4? 


JVALMnII)  ■ JVALMNIf)  ♦ Nvm 


o r»n 
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390 


39  H 
400 

410 


,J4ST(>'Mn)  « JASTMr^n  + MAM) 

NV(  I ) * 0 
NAM)  ■ 0 
SilMR  ■ SUM9  + K(  1 I 

USINO  B R 5IK'  OF  R CALCULATE  WEIGHTS  FOR  THE  NEW  TIME  PERIOD 

no  SOO  I ■ 1.  MSE'iSR 

W(  I,N2)  « RM  l/SUMR 

WPRIMEM.N2)  * (1  -RHO)  o WM,N2)  •*■  RHO  « WPR I «E  I I . ( N2-1 ) ) 

IS  WT.  BELOW  minimum's  ? 

IF  MOROPM))  1030,  39fl,  SOO 
IF  tWPRIMEI I,N2)  - CSENS)  400,  400,  490 


490 

500 

550 

C 

c 

400 

405 

C 

c 

410 

C 

700 

C 

710 


INACTVI  I ) -■!  INACTVI  1 ) + 1 

JF  (INACTVM)  - NO)  500,  410,  500 

I DROP!  II  =■  1 
WRITE<NPRNT,3 ) I 
NOR  I NO  » 1 
GO  TO  500 

0 


YES!  INCR.  CNTR, 

MORE  THAN  D PERIODS  ? 
YES!  REMOVE  SENSOR  I 

NO!  ZERO  INACTIVE  CNTR. 


INACTVI I ) 

CDn*  ini  16 

GO  TO  550 

WRITE(NPRnT,2)  ( WM.M2),  1=  1,  NSENSR) 
WRIT6(NPRNT,4)  (WpRIME(l,N2)  , I « I, NSENSR) 

IF  A sensor  WAS  DROPPED  UPDATE  THE  SENSOR  STRING 


IF  (NDRINO)  120,  120,  400 
LIVSNS  » 1 

KL  * LASTSNU) 

NL  » LASTSN(2) 

IF  (lOROP(ND)  1030,  700,  610 
NL  ♦ I 


LASTSN12) 
GO  TO  605 


NL  - NL  + 1 

IF  (IDROPIND)  1030,  730,  710 


TSHAR  (NL-'l  , 1 ) » TSHArI  NL-M,  1 ) ♦ TSRARINI.,!) 
TVELInL+1,1,1  ) * TVELtML+1,1,1)  + TveL(NL,l,l) 


TRAJ  744 
TRAJ  750 
TRAJ  T55 
TRAJ  740 
TRAJ  770 
TRAJ  7B0 
TRAJ  790 
TRAJ  ROn 
TRAJ  fllO 
TRAJ  B15 
TRAJ  820 
TRAJ  822 
TRAJ  830 
TRAJ  840 
TRAJ  850 
TRAJ  840 
TRAJ  870 
TRAJ  880 
TRAJ  890 
TRAJ  894 
TRAJ  900 
TRAJ  910 
TRAJ  920 
TRAJ  930 
TRAJ  940 
TRAJ  941 
TRAJ  944 
TRAJ  945 
TRAJ  950 
TRAJ  940 
TRAJ  970 
TRAJ  980 
TRAJ  990 
TRAJIOOO 
TRAJlOlO 
TRAJ1020 
TRAJ 1030 
TRAJ 1040 
TRAJ 1050 
TRAJ 1040 
TRAJ1070 
TRAJ1080 
TRAJ1090 

UPOATE  time  BTWN  SENSORSTRAJIIOO 

TRAJlllO 
TRAJ1112 
TRAJl 114 


(A)  DO  WESTBOUND  UPDT  FIRST 

The  first  sensor  is  gone 

CHECK  MID  SENSORS 


TVELtNL,!,!) 

= 0.0 

TRAJl 1 14 

! 

TVEL(NL,1,2) 

■ 0.0 

TRAJl 118 

' 

TSRARINL, 1 ) 

■ 0.0 

TRAJl 120 

GD  To  740 

THAJ1130 

730 

LASTSNI 1) 

• NL 

TRAJl 140 

LIVSNS 

- LIVSNS  + 1 

THAJ1150 

IF  fNL  - KL) 

SFE  IF  THRU  THE  STRING  TRA.Il  140 

740 

700,  750,  750 

TR  AJU  70 

OtllT  IF  T'in  FEW  SENSORS 


TRA.Il  l^'O 
TRAJl 1m2 


750  MSFnS  ■ ocTSFN  * LIVSNS 
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I(^  (MSFMS  - ?) 


1070,  «00,  >100 


flon 

«n‘> 

flio 


«30 

C 

C#»** 

c 

1030 

1031 

1070 

1071 


WL  = LASTSi'KlI 
KL  ■ LASTSMI2) 

Ml,  « ML  - 1 

IF  ( I ORCIF  1 NL  I ) 1030,  >130,  >110 

TSHAR(ML-1,2)  + 


TRAJllSO 

<rt)  DO  EASThOON)  OIKECTKIN  1HA.J1200 

1RAJ1210 

TRAJ1220 

TRAJ1230 
TKAJU'AO 
«M  Se''JS0RST«AJ1230 


TVEL (NU-l  * 2. 1 I 
TVEUNL-1.2,2) 


TSRAR  (•'lL-1,  2) 

TVEUMt-1 ,2. 1 1 
TVHL(Mt-l,2,2) 

TVeLlNL,2,2)  = 0.0 
TVEL(NL,2,1 ) » 0.0 
TSRARlNl.,2)  = 0.0 
IF  (NL  - KU  120,  120,  >105 

messages  AMO  FORMATS 


ueoate  time  BT 
TSrtAR(ML,2 ) 

>■  TveUML,2,l) 

► TV6UNL,2,2) 


KL 


lORO 

lORl 

1 

2 

3 

A 

5 

h 


WfiITF(MPRMT,1031  I lOROPINLl,  N'L 
FORMAT  ( 15H01"»k  error  AlO  , 3110) 

CALL  EXIT 

M^ITF|mPRMT,1071)  MSENS,  LIVSMS,  IlOROPIJ),  I = 1,  MSEMSH) 
format ( 21H0THERE  ARE  LESS  THAN  , 13,  23H  SENSURS  IN  THE  STRING., 

1 IIH  THERE  are  , I3/1H0,  (A0( 12, IX) ) ) 

CALL  EXIT 

WRITEC-'PRNT,  lORl)  N2,  NWAlAV 
FORMAT!  15H0**:<o  ERROR  A13  , 216) 

FORMAnJoHOTRAJ.  CONFIRMFO  AT'  , FB.3,  6H  OlR.  , 12,  HH  SEN$OR  ,13)TRAJlA20 

FORMAT!  IRH  THE  IIPOATKD  wll)  :,2X,  15F6.3/ I 2 IX , 15FA.3 ) ) TRAJ1A22 

FORMAT!  2>1HORFMOVFO  HYPOACTIVE  SEA>SOR  :,  13)  TRAJ1A27 

FORMAT!  IRH  THE  NPRIM;!!)  s,2X,  1 5F6 , 3 / ( 2 1 X , 1 5 F6 . 3 ) ) TRAJ1A2H 

F0RMATI7H  VAI.inS,2X  >2014/  !9X,20IA)) 

FORMATITH  ASTI'S, 2X  ,2014/  l9X,20IA))  3*. 

gN,„  TRAJ1430 


TR AJ12G0 
TRAJ12A2 
THAJ12iS4 
TRAJ12G8 
TRAJ1266 
TRAJ1270 
TRAJ12H0 
TRAJ1290 
TRAJ1300 
TRAJ1310 
TRAJ1350 
TRAJ13G0 
TRAJ1370 
TRAJ13H0 
TRAJ1390 
TRAJIAOO 
TRAJlAin 
TRAJU12 
TRAJ1A13 
TftAJlAlA 


lAi  iilHiMfaAairnim~i‘  ■.mi 


orvoorkooonr* 
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SimUnUTINf;  THANSFe« 

23  NOV  71 

THUS 

10 

TKNS 

20 

TKANSFes 

THE  nvER'llMES  Ti)  THE  PRIMARY  fiRAPHING 

ARRAYS 

TRNS 

30 

trnS 

40 

Ml  - TMF 

NDMRER  f)E  OVERTIMES  IN  THE  ARRAY 

TRNS 

SO 

M?  - THF 

COUNTER  OF  THE  PRIMARY  GRAPHINi,  ARRAY 

TRNS 

60 

F(  n - the 

EAST  graphing  array 

TRNS 

70 

W( 1 ) - THE 

WEST  graphing  array 

TRNS 

RO 

THU)  - the 

EAST  OVERTIME  ARRAY 

TRU"" 

RO 

TWl I ) - THE 

WEST  OVERTIME  ARRAY 

TRNS 

100 

TRNS 

110 

simnniiTiNE  trnsfr  (mi,  m2,  e.  w,  te.  tw> 

TRNS 

120 

TRNS 

130 

DIMENSION  Ed).  W(l».  TE(1),  THU) 

TRNS 

140 

TR.-lS 

ISO 

IE  (Ml) 

10.  ion,  10 

TRNS 

160 

10  no 

20  1*1,  Ml 

TRNS 

170 

M2  - M2  + 1 

TRNS 

180 

E(M?)  * TE( I ) 

TRNS 

IRO 

20  1 

W(M2  ) * TW( n 

TRNS 

2 00 

Ml  * 0 

TRNS 

210 

TRNS 

220 

100  return 

TRNS 

230 

ENO 

TRNS 

240 
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c 

c 

c 

c 

c 

c 

c 

c 


KniiTiivie  v.ftLins 


K.gKMflIM  10 


THIS  RIlUTINe  CH6CKS  EACH  OETFCTlOiM  AS  IT  ARRIVES  TO  SEE 
SHOOLO  he  AnOFn  TO  A VALIO  STRIP.  IF  MOT  IT  CHECKS  TO  SEE 
Ct)RRFi«.T  riPFN  WINDOWS  SHnOLD  KF  CLOStO.  IF  A VALID  STRIP 
completed  IT  IS  CHFCKFD  FOR  AD*i  I SS  AE I L IT  V AFTER  WINDOWS  ON 
SENSORS  ARE  CHFCKED  FOR  CUISORE. 


SURROUTINF 

VALIOSI lOROP, 

IKTRAJ, 

INACTV, 

LASTSN 

1 

NASTC, 

norstr. 

NOETEC, 

NDPENT 

2 

NV,  R, 

TmefST, 

TMELST, 

TSHAK 

3 

WLWTM, 

WDPTM  , 

IB 

BEGTME 

4 

NCNOT, 

NRTRUK, 

NRTJC  , 

nhrthk 

5 

NSNS  , 

BETA  , 

IWCNT  , 

NSENSR 

6 

NO  , 

NR  , 

NTRAJC, 

LSTCNV 

7 

JSR  , 

TMESR, 

WCAP  .NWARAY 

KWNNf), 
MRTKAJ  . 
UPWNI)  t 
FINTME, 
NFND  . 
MSFNS  » 
, NDISK 


SEPT  71 

VALO 

10 

VALO 

20 

IF  IT 

VALO 

30 

I F ANY 

VALD 

40 

s 

VALO 

50 

1 ALL  0TH6RVALD 

60 

VALO 

70 

VALD 

ao 

NAVLIO, 

VALD 

90 

NTHISTR, 
W , 

MRGEN  , 
NSIZ3  , 

csews  , 

, NPRNT 


) 


DIMENSION  inROP(l),  NOFTFCm,  TMEFSTU).  TMELST(I),  NV(l)  , 

IKTRAJ(l),  INACTVdj,  LASTSWIl),  RWWNDtl),  NAVLIDIII, 
NASTCm.  NDrSTRID.  NOpP'-Tll),  NRTRAJIU,  NTjSTRIl), 
H(l)t  TSDARIl),  UPWNnm,  Will,  WLWTM(l),  WUPTMIl), 
16(1),  ftEl^TMEU),  FINTMFU),  NRRENI  1 ) ,NCNDT  I 1 ) , 


1 

2 

i 

4 

5 


NRTROKI 1 ) , 
KSWTCH  a 0 
JSWTCH  » 0 


LSTCNVm,  JSR(l)  ,TMESRI1) 


c 

(;*•»* 

C 

ion 


c 

C***4 

c 


REAO  THE  SENSOR  NO.  AND  TIME  OF  DETECTION  FROM  THE  DISK 


CALL  RFADIMECTME,  FINTmE, 
NPRNT,  I , TIME, 
NWARAY,  W , NH 
mSWTCH  = 0 


NRTRUK,  NRGEN  , 
N6RTRK,  NTRAJC, 
, NSENSR,  NSN5 


NSIZ3,  NDISK,  NCNOT 
LSTCNV,  LASTSN 


) 


IS  THIS  DETECTIOM  ThE  BEDINING  OF  A NEW  STRIP  ? 


TMECHK  - TIME  - TMELSTI I ) 

IF  (tmfchki  ids,  106,  no 


BETA 


C 

C***» 

c 

lot) 


c 

C***« 

c 

no 

112 


C 

C***o 

C 

116 


NO!  CONTINUE  The  strip  - UPDATE  LAST  OETECTION  COUNTER 


TMFLSTI 1 I 
NOETECI I ) 
GO  TO  100 


TIME 
NOETEC ( 


YES!  ITS  THE  BEGlNlNG  OF  A NEW  STRIP,  WAS  THE  PREVIOUS  ONE  VAlID? 


IF 


(NOETECI I ) - 
JSWTCH  ■ 0 
MSWTCH  ■ 1 
GO  TO  200 


IWCNT)  112,  llA,  116 


STRIP  WAS  NOT  VALID.  CHECK  ALL  WINDOWS  TO  SEE  IF  ANY  SHOULD 


CALL  CHKWInI IDROP,  IKTRAJ,  INACTV,  LASTSN, 

1 NDrSTR,  npRMT  , MlIPCNT,  nrTRAJ, 

2 .TMELSTI n .TSBAr  , IPWVI  , W , 

3 BFGTME,  FINTME,  NR«;EN  , nCNDT  , 


VALO 
VALO 
VALD 
VALO 
VALO 
VALD 
VALD 
VALD 
VALD 
VALD 
VALO 
VALO 
VALD 
VALD 
VALO 
VALO 
VALO 
VALO 
VALD 
VALO 
VALD 
VALD 
VALO 
VALO 
VALO 
VALD 
VALO 
VALD 
VALD 
VALO 
VALO 
VALO 
VALD 
VALD 
VALO 
VALD 
VALO 
VALO 
VALO 
VALO 
VALD 
VALD 
CLOSE. VALD 
VALO 

HWWNO,  NAVLID,  NASTC  • VALO 
NTJSTR.nv.  R .THEFST ( 1) valo 
WLWTM  .WUPTM  , IB  . VALD 
NrTKDK.nRTJC  , NBRTRK,  VALO 


lOD 

no 

120 

130 

140 

150 

154 

160 

170 

172 

173 

174 

175 
175 
177 
17R 
IBO 

iwn 

200 

210 

212 

213 

2n 
220 
2 30 
240 
250 
240 
270 
2P0 
2W0 
300 
310 
320 
330 
340 
350 
360 
362 
364 
366 
370 
3«0 
3D0 

400 

410 

4?n 

430 


n n r% 


ftn  T(^  no 


jfttarisfiiiiMiiai 


•"W  .'”r'-’^*’'^.  • 


'"•  ■ ■'■  -I  "t  ■ ,• 'pvyf  ■ ”- ”7^-  ■ 
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MFMt)  , NS  123  . NSNS 
CS6NS  . NO,  NH.  It  0 
TMEFSTt  NW4HAV 


. HFTA  t I VCNT  .NSENSR,  i*.SEMS  . 
, NTR4JC,  LSTCNV,  WCAP  ,T(-iELST, 

» 


C««««  res  ITS  4 VALID  STRIP.  SEE  1!"  ANY  WINDURS  ON  DTHEft  SENSORS  SHOllLO 
RE  CLOSED.  INCREMENT  VALID  STRIP  COUNTER. 

C 

116  NV( I ) “ NV( n + 1 
C 

(««««  CHEECK  ALL  OTHER  SENSORS  FDR  VALID  STRIPS 
C 

209  J ■ 0 

I SORT  » 0 

ASSIGN  1,23  TO  MASSN 

117  J ■ J + I 

IP  (J  “ NS6NSR)  300,  300,  204 
IP  ( J-  I)  118,  117,  118 
IF  (NOETEC(J)  - IWCNT)  117,  301,  301 
IF  ( TIME  - TMELSTIJI  - BETA)  117,  117,  119 


300 

IIR 

301 


STRIP  IS  VALID  - PLACE  IT  IN  LIST 

119  ISORT  n ISORT  + I 

TMFSR(ISIJRT)  » TMELSTU) 

JSR( ISORT)  » J 

NV(J)  • NV(J)  ♦ 1 
NOETECUI  «•  0 

IF  (TMELST(J)  ,GE.  TMELST(D)  JSWTCH  • 1 
KSwTCh  - 1 
GO  TO  117 

SORT  LIST  ON  LOW  TIME 

NNl  ■ NSENSR  - 1 
on  122  Rl  - 1,  NNl 
K2  » K1  •*■  I 

DO  122  K3  « K2.  NSENSR 
IF  (TMFSR(Kl)  - rnESR(K3))  122,  122,  121 
TEMP  ■ TMESr(KI) 

TMESR(Kl)  » TMESR(K3) 

TMESR(K3)  ■ TEMP 

ITEMP  » JSR(Kl) 

JSRIKl  ) - ,ISR(K3) 

JSR(K3)  • ITEMP 

122  CONTINUE 

•**<■  FOR  EACH  VALID  STRIP  CLOSE  ALL  WINDOWS  AND  CHECK  FDR  ADM  I s 1 8 1 L I TV . 

123 

J - JSR( ISORT) 

IF  (J  - 99999)  124,  201,  201 

RESET  SENSOR  SORT  LIST 


ISORT  - 0 
ISORT  » ISORT  > I 
J - JSR( ISORT) 

IF  (J  - 99999)  124,  201,  201 


201  DM  203  Kl  « 1,  ISORT 

TMESRIKI ) • 99Q999. 

203  JSR(Kl)  ■ 99999 
KSwTCM  . 0 

204  IF  (KSWTCM)  20S,  20S,  120 


VALO 

VALO 

VALO 

VALO 

VALO 

VALO 

VALO 

VALO 

VALO 

VALO 

VALO 

VALO 

VALO 

VALO 

VALD 

VALO 

VALO 

VALO 

VALO 

VALO 

VALD 

VALO 

VALO 

VALO 

VALD 

VALO 

VALO 

VALO 

VALD 

VALO 

VALO 

VALO 

VALO 

VALO 

VALO 

VALO 

VALD 

VALD 

VALO 

VALO 

VALO 

VALO 

VALD 

VALO 

VALO 

VALO 

VALO 

VALO 

VALO 

VALO 

VALO 

VALD 

VALO 

VALO 

VALO 

VALO 

VALO 


4-iO 

4‘jO 

4S4 

4^0 

470 

4H0 

490 

500 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 
51A 
51A 
518 
51C 

510 
51E 
SIF 
51G 
51G 
51G 
51G 
51H 
51H 

511 
51J 
51K 

5IL 

514 

514 
5l(i 
51P 
510 
5’.K 

515 

51  I 
51T 
51V 

514 

51X 

51T 

517 

520 

521 
52? 
52? 
52'* 
5?4 

52  • 


107 


20S  IF  (MSWiCH)  ?Ofc.  207, 
?0/i  IF  (JSWTCHI  115,  115, 
207  ASSIOM  130  TO  *^ASSN 
J » I 

124  CALL  CHKwINI  10‘IOP  , 

1 NDflSTH, 

2 ,7MFLST(J»  , 


206 

130 


3 

4 

5 

6 


R6GTME, 
NENO  , 
CSFNS  , 
WCAP  , 


IKTRAJ, 
NPRNT  , 
TSFAR  , 
FlMTMF, 
NSIZ3  , 
NO  , 
TMgLST, 


C*mm0  CHFCX  THIS  VALIO  STkIP  FOP  Af)Ml SSA91L 1 T V 

C 

IF  iiopopun  1000 
125  CALL  CHKAONdOROP 


125,  127 
IKTRAJ,  INACTV, 


127 

C 

c 

130 


LASTSN, 

1 , NOPSTR,  NPRNT  , NOPENT,  NRTRAJ, 

2 .TMELST(J),  TSBAR  , UPWNO  , W , 

3 BE6TN6,  FINTME,  NRGEN  , NCNDT  , 

4 , NENO  , NSI23  , NSNS  , BETA  , 

5 C3EMS  , NO  , NR  , J , 

6 NWARAY 

GO  TO  MASSN,  (123,  130) 


START  A NEW  strip 

TMEFST) n ■ TIME 
TMELST( I ) ■ TIME 
NOETECm  • 1 

GO  TO  100 


C 

c*««« 

c 

1000 

1 


error  messages 

WRITEINPRnT,  II 
FORMAT! 15H0***4 
RETURN 
END 


IDROP(J) , 
ERROR  200, 


VALO 

VALD 

VALO 

VALO 

INACTV,  LASTSN,  BWWNO  , NAVLIO,  NASTC,VALO 
NOPENT,  NRTRAJ,  NTJSTR,  NV , R , THEFST I J ) VALO 
UPWNO  , W , WLWTW  , WUPTM  , IP  , VALO 

NRGEN  , NCNOT  , NRTRUK,  NRTjC  . NHRT»KVAL0 

NSNS  , BETA  , IWCNT  , NSENSP,  mSEnS,VALO 

NR  , J ,1  , ntrajc,lstcnv,valo 

TMEFST,  NWARAY  I VALO 

VALO 

SENSOR  IS  IN  STRING,  VALO 

VALO 
VALD 

RWWNO  , NAVLIO,  NASTC  VALO 
NTJSTR,  NV,R,TMEFST( JIVALD 
WLWTM  , WIJPTM  , IB  ,VALO 
NRTRUK,  NRTJC  , NBRTRKVALO 
IWCNT  , NSENSR,  Ms6NS,VAL0 
NTRAJC  tLSTCNV,  WCAP.  VALO 

I VALO 
VALD 
VALO 
VALO 
VALD 
VALO 
VALO 
VALO 
VALO 
VALO 
VALO 
VALO 
VALO 
VALO 
VALD 
VALO 


J,  time 

2110,  F10.3) 


524 

524 

526 

527 

525> 

530 

540 

550 

560 

570 

570 

5R0 

5R0 

600 

610 

620 

630 

6*-0 

650 

660 

670 

670 

675 

6H0 

690 

700 

710 

720 

730 

740 

750 

760 

770 

7H0 

790 

800 

Pin 


i 


J 


